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DRUM OP SETUP BIT 

LEVEL6 DIA 

SET UP D-30 READ 

CHANNEL RELEASE FLAG 

SPECIAL OPERATION = NO ERROR CHECKING 
PUB DIAGNOSTIC HOLD 


SPECIAL INTERRUPT PENDING 
SEEK~COMPLETE BIT FOR 2314/HSFC 
DECIMAL MODE SET 

ASCII MODE SET (9 TRACK TAPE) 
DON'T SEEK FOR DSS180 

IMAGE SETTABLE DEVICE ; 
SPACE FOR PRINTER BUTTON STATUS 
SUPRESS ERROR RECOVERY 

IO DIAGNOSTIC HOLD BIT 
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000000 
000001 
000002 
000003 
000004 
000005 
Q000006 
000007 
000010 
000011 
000012 
000013 
0000174 
000015 
000076 


000017 
000020 
900021 
N00022 


000023 


Q09024 
000025 
000026 
000027 
000030 
000031 
000032 
000033 
000034 
000035 
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000000000000 
0000000001900 
000000000200 
000000000200 
000000000200 
000000000000 
000000000190 
090000000200 
9CO000000200 
000000000200 
000000000290 
006000000400 
000000000400 
090000000400 
Oo0ogo00c000NN 


000000000000 
060000010000 
0000000090264 
000090000264 
000000000144 
O0CC000000000 
000000010000 
OC0000000264 
000000001370 
0090000001379 
000000001370 
0000000090574 
0900000000574 
900900000574 
009000000000 
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209 
210 
211 
212 
243 
214 
eho 
216 
217 
218 
219 
220 
221 
222 
coo 
224 
Coo 
226 
eet 
228 
229 
230 
231 
Coe 
rage go 
234 
255 
236 
aed 
238 
Co? 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
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REC 


+ & + & & 


FILE 


DTSS TRADE SECRET 
PHYSICAL I/0 -- DEVICE INFO TABLES 
TTLS PHYSICAL I/0 ~~ DEVICE INFO TABLES 


TABLE OF RECORD SIZES (MINIMUM WRITTEN) 


HEAD T 

DEC 0 O NO SUCH DEVICE 

DEC 64 1 DRUM 

DEC 128 2 2314, FILE PREFERENCE 
DEC 128 3 23144 CATALOG PREFERENCE 
DEC 128 4 0SS167 

DEC ¢) > = SPARE 

DEC 64 6 = SPLIT DEVICE 

DEC 128 7 = 2314, ENTIRE PACK 

DEC 128 8 = DSS190- ENTIRE PACK 
DEC 128 9 = DSS190/ CATALOG TRACKS 
DEC 128 10 = DSS190, FILE TRACKS 
DEC 256 11 = MSU451 ENTIRE PACK 
DEC 256 12 = MSU4571 CATALOG TRACKS 
DEC 256 13 = MSU451 FILE TRACKS 
DEC 0 14 = PATCH SPACE 


TABLE OF MAX NUMBER OF RECORDS PER FILE OPERATION 
(LOGICAL CYLINDER SIZE IN UNITS OF LOGICAL RECORDS) 


HEAD T 

DEC 0 O NO SUCH DEVICE 

DEC 4096 1 = DRUM 

DEC 1380 2 = 23144 FILE PREFERENCE 

DEC 180 3 = 2314, CATALOG PREFERENCE 
DEC 100 4 = DSS167 

DEC 0 5 = SPARE 

DEC 4096 6 = SPLIT DEVICE 

DEC 180 7 = 2314, ENTIRE PACK 

DEC 760 8 = DSS190 FAMILY, ENTIRE PACK 
DEC 760 9 = DSS190 FAMILYs CATALOG TRACKS 
DEC 760 10 = DSS190 FAMILY» FILE TRACKS 
DEC 380 11 = MSU451 ENTIRE PACK 

DEC 380 12 = MSU451 CATALOG TRACKS 

DEC 380 13 = MSU451 FILE TRACKS 

DEC 0 14 = PATCH SPACE 
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C170CT76) 
C170CT76) 
C170CT76) 
C170CT76) 


COIMAY79) 


C170CT76) 
C170CT76) 
CI70CT76) 
Ci70CT76) 
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T PHYSICAL I/0 ~~ DEVICE INFO TABLES RELEASED O1DEC80 
250 EJECT COIMAY79] 
251 * . 
252 * TABLE OF ALLOCATION RANGES 
253 * 
000036 900000000000 e- 254 RANGE OCT 0 O NO SUCH DEVICE 
000037 090000027676 oe Zoo OCT 000000027676 1 UNIVAC DRUM | _ 
000040 000100 077200 .. 256 ZERO 64/9*20*180-16 2 2314 FILE TRACKS C21APR77) 
000041 Qo0n000 007006 .. Cot ZERO 0-9*20*20-10 3 2314 CATALOG TRACKS C21APR77]) 
000042 000100047000 ee 258 OCT 000100047000 4 DSS167 C21APR?77] 
000043 000000000000 ee coe DEC 0 5 = SPARE C21APR77] 
000044 000000057400 oe 260 OCT 000000057400 6 = SPLIT DEVICE C21APR77) 
000045 0009100 106220 .. 261 ZERO 6469%*20*200-16 7 = 2314, ENTIRE PACK C21APR77) 
900046 000100 456032 .. 262 ZERO 64420*19*407-10 8 = DSS190 FAMILY» ENTIRE PACK C21VAPR77) 
000047 OC0OCOC 035526 .. 263 ZERO 0720*19*40-10 9 = DSS190 FAMILY, CATALOG TRACKS C2TAPR?77) 
000050 O080100 420272 .. 264 ZERO 64420*19*367-10 10 = 0SS190 FAMILY, FILE TRACKS C21APR77) 
000051 000160 454740 .. 265 ZERO 64 410*19*811-10 11 = MSU451 ENTIRE PACK CO9DEC?79) 
000052 000000 016646 .. 266 ZERO 0-10*19%*40-10 12 = MSU451 CATALOG TRACKS (SAME SIZE AS DSS191) CO9DEC793 
000053 OQC0106 436060... 267 ZERO 64/10*19*%771-10 13 = MSU451 FILE TRACKS CO9DEC79I 
000054 acoco00 000000 .. 268 ZERO 14 = PATCH SPACE C170CT76) 
269 * | | 
270 * UPPER =~ TSSIZE =~ MAXIMUM ALLOCATION SIZE PLUS TWO COIMAY?793 
27) * LOWER - TSCONV = SUBROUTINE FOR LOGICAL TO PHYSICAL CONVERSION COIMAY79) 
ete * 
000055 ers SIZE NULL UPPER HALF 
COCGC55 eth CONV NULL LOWER HALF 
900055 000000 002007 .R e75 ZERO O-ISCONVI O = NOT ALLOCATABLE 
000056 000622 002007 .R 276 ZERO 18/1 SCONV2? 1 = UNIVAC DRUM 
000057 O00022 002012 .R ert ZERO 18,1 SCONVS 2 = 2314 FILE PREFERENCE 
000060 000022 002014 .R 278 ZERO 18-1 SCONVS 3 = 23144 CATALOG PREFERENCE 
000061 OCCO22 002016 .R 279 ZERO 18/ISCONVS 4 = 08816? 
O00C62 O00000 CO2005 .R 286 ZERO O- IFCONVO 5 = SPARE 
000063 O0CC22 002007 .R 2&1 ZERO 1&a,-1$CONV2 
000064 000022 002024 .R 282 ZERO 18-1 SCONV? 7 = 2314, ENTIRE PACK 
000065 OQ00024 GO2024 .R ae ae: ZERO 20-I1SCONVE 8 = DSS190 FAMILY» ENTIRE PACK 
000066 000024 002034 .R 284 ZERO 2Oe1SCONVI 9 = DSS190 FAMILYs CATALOG TRACKS 
O00067 O00024 092036 .k 285 ZERO 20/1SCNVIO 10 = DSS190 FAMILY, FILE TRACKS 
000070 O00024 002024 .R 286 ZERO cOsISCNV14 17 = MSU451 ENTIRE PACK CI70CT76) 
000071 OcC0024 002040 .R 287 £ERO 20/,I1SCNV1I2 12 = MSU451 CATALOG TRACKS C170CT76) 
Q00072 000024 002042 .R 288 ZERO 2041SCNV13 13 = MSU451 FILE TRACKS C170CT764 
000073 Q000G00 002005 .R 289 ZERO O- ISCONVO 14 = PATCH SPACE C170CT763 
290 * 
297 * NUMBER OF PHYSICAL DEVICES PER LOGICAL CATALOG TRACKS DEVICE 
292 * 
000074 900000000001 .* 293 CATSZ OCT 1 


I 
l 
| 
| 
| 
| 
| 
| 
{ 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
I 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
: 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 


Cy 3Oe sO 9) 92: “Or vey ar 


6 ee © eee © ee © mee © ee © ae © came, © me © ee © ee © ee © 


Oo © © WO © +6 © © © oO © © © © 


Or 7. de 3G © "OC: fe © 


000075 
000076 
000077 
000700 
000101 
000102 
000703 
000104 
000105 
000106 
06001407 
000110 
000111 
O00112 
000113 
000114 
000115 
O000116 
000117 
000120 
000121 
000122 


000125 
0001724 
000125 
900126 
000127 
000130 
000131 
000132 
000133 
000134 
000135 
000136 
000137 
000140 
0001741 
000142 
000143 
000144 
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OcG177 
000177 
000177 
000177 
OQCT?7 
O001?77 
Q00177 
000366 
COC?26 
OCC314 
061.016 
0017052 
0071106 
001275 
001070 
000233 
001331 
0011706 
001167 
001446 
000233 
001365 


000075 
000075 


000001 
000002 
000001 
000002 
000001 
000007 
000001 
Q00024 
OCO024 
000001 
000010 
000010 
000010 
000002 
000010 
000004 
090002 
0000710 
000010 
000024 
000004 
09000e 


000123 


203145652143 
202024316242 
202451644420 
246262010607 
202020202020 
2029020202020 
022451644462 
202063214725 
202063214711 
234645624643 
512521242551 
204764452330 
475131456351 
202445520300 
204764452330 
202024011101 
203007010620 
475163030001 


ADD AA DADA DADDA DAD DAD 


AWAD A A 


AD wD 
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294 


298 
279 


321 
S22 


324 
Seo 


Del 


328 
329 


345 
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DNAME 


PHYSICAL I/0 -- 


EJECT 


TSIOCMD = 
- NUMBER OF TICKS 


TESWAIT 


NULL 
NULL 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 


TSDNAME 


HEAD 
NULL 
BCI 
BCI 
BC1 
BCI 
BCI 
BCI 
BCI 
BCI 
BCI 
BCI 
BCI 
BCI 
BCI 
BCI 
BCI 
BCI 
BCI 
BCI 


BDAD,1 
DSRDe-2 
DRRDs»1 
DQARDs-2 
BDAD,1 
BDADs1 
D2RD»o1 
MTRD-20 
MTR9220 
CNWT +1 
CRRD-8 
CPWT 8 
PRWT +8 
DNRDs2 
BPWT 8 
DIRD +4 
H7RD-2 
PRwWT +8 
P4WT 78 
MPRD-20 
DIORD «64 
LORD »-2 


T 


tr INVAL 
1, DISK 
1, DRUM 
1/DSS167 
1, 

1, 

1/2DRUMS 
1- TAPE 
1-7 TAPY 
1/CONSOL 
1,/READER 
17 PUNCH 
1/PRINTR 
1, DN-30 
1, PUNCH 
1s D191 
17 H716 
1/PRT301 


DEVICE INFO TABLES 
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LO 
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| 
FU 
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INITIAL POINTERS TO I/0 COMMAND LISTS 


TO AWAIT SPECIAL INTERRUPT 


PER HALF 
WER HALF 


= INVALID DEVICE 


2314 (088170) 
UNIVAC DRUM 
DSS167 
PATCH 
SPARE 
SPLIT DEVICE 
SEVEN TRACK MAG TAPE 
NINE TRACK MAG TAPE 
CONSOLE TYPEWRITER 
CARD READER 

CARD PUNCH 

LINE PRINTER 

DN30 

BULL PUNCH 

DSS190 FAMILY 
HONEYWELL 716 

301 PRINTER 

URMPC PRINTER 

MPC 

MSU451 
WELL LEVEL 6 FEP 


SPACE 


Hon UN Uo ot W uo ou 


wun to wu aon i it 


~ BCD NAME OF DEVICE FOR ERROR MESSAGES 


FOR TABLES 

LL WORD 

= INVALID DEVICE 

= 2314/ASC 

= UNIVAC. DRUM 

= DSS167 

= PATCH SPACE 

= PATCH SPACE 

= SPLIT DEVICE 

= SEVEN TRACK MAG TAPE 
= NINE TRACK MAG TAPE 
= CONSOLE TYPEWRITER 
0 = CARD READER 

1 = CARD PUNCH 

2 = PRINTER 

3 = DN30 
4 = BULL PUNCH 

5 = DSS191 

6 = HONEYWELL 716 

? = 301 PRINTER 


RELEASED O1DEC80 


COMAY794 


C18AUG76) 
Ci70CT/76] 
CO1DEC80I 


C21APR77] 
C21APR77) 
C21APR77] 


On «Ge Oe 9 0 “Or 4. CO SOO 


Oo Oo co Oo & Oo G&G © 


C) 


O- "O30: © “Os «20: se O° O ©. © OO © OO: © © © © 


0001745 
000146 
000147 
000150 


000151 
000152 
000153 
000154 
000755 
000156 
000157 
000160 
000161 
000162 
000163 
000164 
000165 
000166 
000167 
000170 
000171 
000172 
000173 
000174 
000175 
000176 
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475163040000 ee 346 
444723202020 os 347 
202044040501 ° 348 
432565254306 oe 349 
000026 350 
351 
000151 352 
523 
354 
52° 
356 
000151 Sor 
000000000000 e. 358 
OCC000600000 oe one, 
O00000000000 oe 360 
NC0000000000 ae 361 
090000000000 eo. 362 
000000009000 ee fet oF 
000000000000 oe 364 
500000000000 ee 365 
500900000000 ee 366 
OCO000000000 oe 367 
OCc0000000000 =. 368 
00C000000000 oe 369 
009000000000 ae 370 
000000000000 oe 371 
000000000000 e- 372 
220000009900 oe S73 
000000000000 ee 374 
O0CC000000000 = 375 
030000000009 wa FS LG 
000000000000 _ SLL 
2209000000000 ee 573 
0C0000000000 o- 3t9 
380 
381 


VSTB 


URPRT 


* 
ENDIOM 


PHYSICAL 1/0 


BCI 
BCI 
BCI 
BCI 
EQU 


IFIOM 


DETAILED STATUS COMMANDS 


NULL 
OCT 
OCT: 
OCT 
OCcT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OcT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCcT 
OCT 
OCT 
OCT 
OCT 
OCT 


MARK 


DTSS EXECUTIVE CINSERT SEGMENT) 


1/PRT400 
1-/MPC 

lr M451 
T,rLEVEL6 
k~- DNAME 


000000000000 
000000000000 
000000000000 
000000000000 
000000900000 
OCCO00000000 
000000000000 
9000009000000 
500000000000 
0000900000000 
000000000000 
000000000000 
000000000000 
000000000000 
000090000000 
220000000000 
000000000000 
000000000000 
930000000000 
0000909000000 
220000000000 
000000000000 


DTSS TRADE SECRET 


“~~ DEVICE INFO TABLES 


8 = URMPC PRINTER 

9 = MPC 

O = MSU451 
= HISI LEVEL 6 MINICOMPUTE 


ULL WORDS 

INVALID DEVICE 

2314 (DSS170) 
UNIVAC DRUM 

DSS167 

PATCH SPACE 

SPARE 

SPLIT DEVICE 

SEVEN TRACK MAG TAPE 
NINE TRACK MAG TAPE 
CONSOLE TYPEWRITER 


tou on nt ot nt ow ttt 


10 = CARD READER 
11 = CARD PUNCH 

12 = LINE PRINTER 
13 = DN390 

14 = BULL PUNCH 

15 = DSS190 FAMILY 
16 = HONEYWELL 716 
17 = 301 PRINTER 
18 = URMPC PRINTER 
19 = MPC 

20 = MSU451 

21 = HISI LEVEL 6 FEP 


RELEASED O1DEC80 


C21APR77] 
C21APR77) 
C21APR77) 
CO9DEC 793 
CO9DEC79) 


CO9DEC79) 


CO9DEC79) 


CO9DEC79) 


C21APR77] 


CO1DEC80I 
C18AUG76) 
C170CT76) 
CO9DEC79) 
CO9DEC?IJ 
CO9DEC79I 
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000001 
O00009e 
000062 
000003 
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000004 
900004 
000005 
900005 
000006 


OQ. 9 oe Oe er OO es 


OF 08255 


382 
S63 
384 
385 
386 
387 
388 
3&9 
270 
391 
392 
eee 
394 
59D 
396 
397 
398 
579 
400 
401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 
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IOcPC 
IOPSS 
IOclIo 
IOPCS 


IOSTS 
IOTMO 
IORTM 
IORTY 
IONXT 


—“ *£ ee OF 
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PHYSICAL I/0 ~~ MAIN DRIVER TABLES 


TTLS 


HEAD 


PHYSICAL I/0 


T 


~~ MAIN DRIVER TABLES 


T FOR TABLES 


THESE TABLES ARE LINKED LISTS OF BLOCKS», ONE BLOCK PER 
EACH BLOCK CONTAINS THE INFORMATION NECESSARY 
IN THE FOLLOWING FORMAT. 


COMMAND. 
TO EXECUTE THAT COMMAND, 


IOCPC+1 
IOPSS 
IOCIO+1 


IOPCS+1 
IOSTS 
IOTMO+1 
IORTM 
IORTY+1 


(FULL) 

CUPPER) 
CLOWER) 
CUPPER) 
CLOWER) 
(UPPER) 
CLOWER) 
CUPPERD 
CLOWER) 
(UPPER) 
CLOWER) 


PHYSICAL COMMAND WORD 


PRE-SIEZE SUBROUTINE 
CONNECT ROUTINE 
PRE=CONNECT SUBROUTINE 
PARAMETERS FOR ABOVE 
STATUS CHECK ROUTINE 
TIMEOUT TIME 

MAXIMUM RETRY COUNT 
RETRY OPERATION LINK 
NEXT ROUTINE 

NEXT OPERATION LINK 


THE FOLLOWING MACRO GENERATES SUCH BLOCKS 


MACRO 
CRSM 
ZERO 
OCT 
INE 
Efe 
ZERO 
IFE 
ZERO 
IFE 
LP 
ZERO 
i = 
ZERO 
INE 
ZERO 
L PE 
ZERO 
ZERO 
ZERO 
ZERO 
CRSM 
ENDM 
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RELEASED O1DEC80 


COIMAY79) 


CO9DEC79] 
CO9DEC?79) 
CO9DEC79) 
CO9DEC?9) 
LO9DEC79I]I 
CO9DEC7T9O]I 
CO9DEC79J 
CO9DEC 79) 
CO9DEC79I 
CO9DEC79I 
CO9DEC?79) 
CO9DEC79) 
CO9DEC7T9 J 


<LABEL>+¢<LINK>-<MODE>,IOCPCAIOPSS/IOPCSA-IOCLIO-IOSTS»-IOTMOZIORTMs,IORTY-IONXT. 


SAVE -/OFF 
#2,T3MD#3 
HG 
"HOt, t 844 
"H7' "7,2 
ISAS 
1-21 
IS#5,13547 
"H#O' SDT 85h 
"Hs ee 
ISMPSSR 
1o2r1 


ISMPSSRAISH? 


"H6','*,2 
1546 
1e2el 
ISMPCSR 
1b#8,#9 
#10-#11 
IS#12 
RESTORE 
IT 


LINK/MODE 


IOCPC 


IOPSS/IO0CIO 


IOPSS,IOCIO 


IOPSS/IOCIO 


IOPSS/IOCIO 


IOPCS 


IOPCS 


IOSTS,/IOTMO 
IORTM,IORTY 


IONXT 


COUMAY79) 


Oo © © 


) 
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© ae © mee © ae © ae © ee ©. 
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431 


455 
456 
457 
458 


463 
464 
465 
466 


469 
470 
471 
472 


479 


DTSS EXECUTIVE CINSERT SEGMENT) 


PHYSICAL I/0 -~ MAIN DRIVER TABLES 
EJECT 
THE COMMAND BLOCKS ARE LABELLED SO THAT THEY CAN 


BE LINKED. SOME OF THESE LABELS ARE ALSO USED 
INTERNALLY» FOR CHAINING AND ISMDOG, 


*Q UPPER -~ LINK TO NEXT COMMAND BLOCK FOR THIS TYPE. 


* 


* 
* 
* 


THE COMMANDS DEFINED FOR A PHYSICAL DEVICE TYPE ARE 

ON A LIST. THESE LISTS MERGE FOR COMMON COMMANDS SUCH 
AS SUPPRESS/ENABLE ERROR RECOVERY. THE LISTS TERMINATE 
IN RJCTs» WHICH SIMULATES A COMMAND REJECT STATUS. 


*Q LOWER -~- ISMODE CODE FOR THIS BLOCK (SEE INSERT). THESE 


CODES ARE USED BY OTHER SEGMENTS TO DO OPERATIONS. 

THE LIST OF COMMANDS (SEE O UPPER) IS SEARCHED FOR 

A MATCHING ISMODE, THE I$MDDG CODE INDICATES A COMMAND 
USED ONLY WITHIN PIO, TYPICALLY FOR ERROR RECOVERY, 
WHICH CAN'T BE ISSUED FROM OUTSIDE. 


w~ FULLWORD DEVICE COMMAND. THIS WORD 
IS OR'D WITH OTHER BITS TO MAKE THE ACTUAL IDCW. 
REMEMBER THAT CERTAIN ISMODES (E.G. SET DECIMAL) 
DON'T DO ANY I/O, 


w= PRE=-SIEZE ROUTINES». THESE DO SUCH THINGS 
AS CHECK & RETURN BUTTON STATUS ON PRINTERS.« THE 
NORMAL RETURN IS TO MPSSR- WHICH SIEZES THE CHANNEL 
AND QUEUES THE INTERRUPT RETURN, 


~~ PRE-CONNECT ROUTINE. THIS GETS THE RIGHT 
COMMAND FOR DUAL-MODE (CDECIMAL-BINARY) DEVICES, 
WAITS FOR A SPECIAL ON 9030S, SETS UP THE CHARACTER 
IN A WRITE~SINGLE-CHARACTER COMMAND, SETS TI BITS 
IN THE SEEK ADDRESS», &C. RETURN IS TO MPCSR. 
THE LOWER HALF MAY CONTAIN AN ARGUMENT, 


~~ SPECIAL CONNECT SEQUENCE CIF ANY), THESE HANDLE 
COMMON PERIPHERALs D304 AND DIRECT CHANNEL CONNECT 
IDIOSYNCRACIES. THEY RETURN TO CIOC. 


CIOC MARKS THE CHANNEL BUSYs ISSUES THE CONNECT 
AND EVAPORATES. 


~~ TICKS TO TIMEOUT. THERE IS A GLOBAL 8K MS. 
TICKER. WHEN CIOTMO) TICKS PASSs THE I/0 TIMES OUT. 
THUS IOTMO SHOULD BE > 1 FOR ACTUAL I/O. 


WHEN THE CHANNEL RETURNS AN INTERRUPT THE LIST 
IS DEQUEVUED (SEE IOPSSs MPSSR), 
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RELEASED O0O1DEC80 


CO9DEC7II 
CO9DEC79) 
CO9DEC79) 
CO9DEC79I 
cOo9DEC79I 
CO9DEC79I 
[O9DEC79] 
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LO9DEC79I 
CO9DEC79I 
LO9DEC79I 
CO9DEC79I 
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CO9DEC79] 
[O9DEC79) 
CO9DEC79] 
[O9DEC79I 
LO9DEC79I 
CO9DEC79] 
CO9DEC79I 
[O9DEC79I 
CO9DEC79] 
LO9DEC79 
CO9DEC79I 
CO9DEC79I 
CO9DEC79] 
CO9DEC79I 
LO9DEC79I 
LO9DEC79I 
CO9DEC79I 
CO9DEC79I 
CO9DEC79) 
CO9DEC793 
CO9DEC79) 
CO9DEC79I 
CO9DEC79I 
CO9DEC79) 
CO9DEC79I 
CO9DEC79I 
CO9DEC79I 
LO9DECT9I 
CO9DEC79I 
LO9DEC79I 
CO9DEC79I 
CO9DECT7II 
LO9DEC79 
CO9DEC79I 
CO9DEC79} 
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497 
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O O O OO 


e: 


Cee © eet © ee © ee © ee © es © ee © as © ee ©) es © a, © cee © ee, © a 


DTSS EXECUTIVE CINSERT SEGMENT) 


*LONXT 


PHYSICAL 1/0 ~~ MAIN DRIVER TABLES 
EJECT 


-- STATUS CHECK ROUTINE. FOR SPECIAL I/0 
(BSSPIOP IS SET) OR IOM ERRORS THIS IS CALLED 
DIRECTLY. FOR NORMAL 1/70 AND STATUS (CIOSTS)+1 IS 
CALLED. IT IS RESPONSIBLE FOR RETRIES (TRA RETRY). 
IT MAY ISSUE SPECIAL CISMDDG) COMMANDS, SUCH AS REREAD, 
BACKSPACE TO REREAD» ERASE THEN REWRITE (SEE BELOW). 


m—~ RETRY COMMAND. THIS USED FOR RETRYING SOME 


OPERATIONS» SUCH AS READ=BACKSPACE-REREADs WRITE- 
ERASE~REWRITE. 


m~ RETRY COUNT. THIS IS THE NUMBER OF TIMES TO 


RETRY I/0. IT US USED BY RETRY & FRIENDS. 


m~- NEXT OPERATION LINK. THE UPPER HALF IS 
CALLED WHEN THIS OPERATION COMPLETES SUCCESSFULLY. 
THE LOWER HALF MAY CONTAIN AN ARGUMENT. 
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RELEASED O1DEC80 


CO9DEC?TII 
CO9DEC79) 
CO9DEC79I 
CO9DEC79) 
CO9DEC79) 


CO9DEC79) 


CO9DEC?79) 
CO9DEC79) 
CO9DEC?9J 
LO9DEC?79I) 
CO9DEC79I 
CO9DEC79) 
COSDEC79II 
CO9DEC79) 
CO9DEC?79) 
CO9DEC79) 
CO9DEC79) 
CO9DEC?79) 
CO9DEC79I 


(ee Oe Oe Or, © ae, 


() 2€) 2-2 


nn mcrnirenentGs OEE PEER RR. 


PIO 


000177 
000200 
000201 
000202 
000203 
000204 
000205 


000206 
000207 
000210 
000211 
000212 
000213 
000214 


O 
O 
O 
O 
O 
O 
@ 
O 
O 
O 
O 
O 


000215 
000216 
000217 
N000220 
000221 
000222 
000223 


Q000224 
000225 
000226 
000227 
000230 
000231 
000232 


Cy WO. Se 8G «Or Hoy Oe 


© 


09/03/81 09:08:53 
T 
000177 
000000 700000 .. 
000000000000 ae 
004333 090000 R. 
002667 OO0000 R. 
002577 O00000 R. 
QO00000 000000 .. 
002577 000000 R. 
000206 
JO0206 
QOUG00 7FO0000: .«. 
Ce A Os ie iF a aT Ee ae 
002463 090000 R. 
002667 O00000 Rk. 
004073 000003 R. 
000003 900000 .. 
002577 000000 R. 
000215 
o000g0c 700000 .. 
Occoo0000000 e- 
002663 000000 R. 
O0C2667 O900000 R. 
004224 000000 R. 
000000 000000 .. 
OC2577 OO0000 R. 
000224 
000000 700000 .., 
0C0000000000 we 
004325 000000 R. 
002667 000000 R. 
002577 000000 R. 
000000 000000 .. 
002577 O00000 R. 


499 
500 
501 
502 
03 


516 
511 
512 
a5 
514 
oa be 
516 


517 
518 
Pa leg 
220 
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BDAD 


RDDTS 


RJCT 


DTSS TRADE SECRET 


PHYSICAL I/0 -~ MAIN DRIVER TABLES 


EJECT 


REJECT INVALID DAC IN PIO CALL 


IT BDADs-0-0G-000-BDADs 44 ERRORo see ERROR 
ZERO O,ISMDDG LINK/MODE 

OCT 000 IOCPC 

ZERO ISBDAD IOPSS/IOCIO 

ZERO ISMPCSR IOPCS 

ZERO ISERROR, TOSTS-IOTMO 

ZERO , IORTMsIORTY 

ZERO ISERROR IONXT 


DIAGNOSTIC BLOCK FOR READ DETAIL STATS 


IFIOM 

IT RDDTS-O0-0G+ 77777777777 oo oro DVSTI e353 e353 ee ERROR DETAILED STATUS 
ZERO O-1SMDDG LINK/MODE 

OCT T7?7?77777e77 IOCPC 

ZERO ISMPSSR IOPSS/IOCIO 
ZERO ISMPCSR IOPCS 

ZERO ISD0VST143 IOSTS,/IOTMO 
ZERO 3% IORTMs, IORTY 
ZERO ISERROR IONXT 

MARK 

FAKE BLOCK FOR DIAGNOSTIC DRIVES 

IT 10DG-0,DG,000 +++ sDIAGX ooo ERROR 
ZERO O-ISMDDG LINK/MODE 

OCT 000 IOcPC 

ZERO ISMPSSR IOPSS/I0OCIO 
ZERO ISMPCSR IOPCS 

ZERO ISDIAGX, IOSTS-IOTMO 
ZERO rs IORTM-IORTY 
ZERO ISERROR IONXT 

REJECT INVALID COMMAND 

IT RJCT/-O-D0G/000-RICT s+ ERRORes ee ERROR 
ZERO OvsISMDDG LINK/MODE 

OCT 000 IOCPC 

ZERO ISRJCT IOPSS/IOCIO 
ZERO ISMPCSR IOPCS 

ZERO ISERROR, TOSTS,-IOTMO 
ZERO ° IORTM,IORTY 
ZERO IZERROR IONXT 
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RELEASED 01DEC80 


CO9DEC79J 
CO9DEC79) 
CO9DEC79II 
CO9DEC79IJ 
CO9DEC79 3 
CO9DEC?79) 


CO9DEC?9OI 
CO9DEC79) 
CO9DEC79) 
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000233 
000177 


000233 


600233 
GOOT77 


000233 


000233 


261 
S22 
923 
524 
925 
926 
Dat 
528 
529 
530 
531 
ao¢ 
533 
534 
a5 
536 
50 
538 
539 
540 


541 


542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
eye eel 
554 
=e. 
25:6 


+ £ * & 


ENDIOC 
k 
* 
* 


D2RD 
ENDIOM 


* 


x 
ENDIOC 


* 


* 
ENDIOC 


DTSS EXECUTIVE CINSERT SEGMENT) 


DTSS TRADE SECRET 


PHYSICAL 1/0 -= MAIN DRIVER TABLES -- DRUM 


7 oe 


PHYSICAL I1/0 ~~ MAIN DRIVER TABLES ~~ DRUM 


DRUM TABLES 


IFIOM. 
EQU 
MARK 
IFIOC 


IT 
IT 


MARK 


SPECIAL 


IFIO™ 
EQU 
MARK 
IFIOC 


IFIOC 


MARK 


BDAD NO DRUMS ON IOM 


DRRD-DRWT RD -250000240002 ee, CIODMSDRRD1I 42e35eeFIN1 
DRWToMTRV-WRe-3T000024GO0002 ++, CIODM,-DRWT1 42-34 FIN1 


SPLIT DEVICE TABLES 


BD AD NO SPLIT DEVICES ON IOM 


DZ2RDsD2WT »-RD O00 ,D2PSS sao re ERROR eo eo eERROR 
D2WT-MTRVeWReODD,D2PSS spore ERRORs oo eERROR 


DKREQ,0,0G6,0000N002C001,DKPS1 +r ,DKRQ14234eDKRQX 
DPRReO-DGse220000000000-DKPS1,,CIORRs«¢DPRR1 +2 e3eeDPRR2 
DPRRA,O-DG-220000000000,,s,CIOR1-DPRA1 43434 ERROR 
DPRRB»AD4DG/-2600000000004--CIOR1 -DPRA1 46 343 47ERROR 
DPRS20-0G6e420000020001 pre eDPRS145 430 eDPRSX 
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RELEASED O1DEC80 


CO9DEC79) 


CO9DEC79I 
CO9DEC7T9) 
CO9DEC79) 
CO9DEC79I 


CO9DEC79) 
CO9DEC 79) 
CO9DEC79) 
CO9DEC79) 
CO9DEC79] 
COSDEC?79I 
CO9DEC79 J 
CO9DEC79I 
C21APR77] 
C21APR77] 
C21APR77] 
C21APR77] 
CO9DEC79II) 
CO9DEC79) 
COODEC?9 J 
C21APR77] 
C21APR/77] 
C21APR77) 


CO9DEC79I 


6: OC co CG © 


Cy i “© 


We. O Oo OO ee Ye LY Se a 


CO 


meena et SRT 


Op. 105 eG 1 1. 1» 1: sO 3-20 Ai Os. OG: OCD SO. CO 


Q 


O. © 


000233 
000234 
000235 
000236 
000237 
000240 
000241 


000242 
000243 
000244 
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T 
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000233 
000177 


000233 


900233 
000177 


000233 


000233 


000233 


000242 400000 
250000000000 


002663 
002667 
004352 
000062 
004252 


000251 


003077 
000000 
000002 
000000 
000000 


000242 


600000 


310000000000 


002663 


003077 


Dod 
558 
9 
560 
561 
562 
262 
564 
265 
566 
567 
268 
569 
»0 
571 
Die 
573 
574 
Oe 
576 
977 
275 
579 
580 
581 
Doe 
385 
584 
585 
586 
587 
286 
589 
590 
594 
292 
D7 D 
594 
Pie) 
596 
oof 


598 


DTSS EXECUTIVE CINSERT SEGMENT) 


+ + £ & 


DQRD 
ENDIOM 


* 


* 
ENDIOC 


* 


wr OF 


DSRD 
ENDIOM 


* 


DOWT 


DTSS TRADE SECRET 


PHYSICAL I/0 -- MAIN DRIVER TABLES -~ DISK 


1 ae Be PHYSICAL I/0 -~- MAIN DRIVER TABLES -- DISK 


DSU167 TABLES 


IFIOM 

EQU BDAD NO DSS167 ON IOM 

MARK 

IFIOC 

IT DQRD-DQWT-RD-3400000000D0,0KPS1s/CIOCSsDQSK1 oo der (DKWIXe 
ETC DQRDA) 

IT DQRDA-0D-DG,250000240002 or -CLODM, DQRD1 4243, DQRDA,F INI 
IT DQAWT-MTRV-WReS40000000000-DKPS1,-CIOCS,-DQSK1, 

ETC Cr5e0e(DKWTX/DQWTA) 

IT DQWTA0-DG,310000240002-,-CIODM,-DQWT1-243,DQWTASFINI 
MARK 


2314/APOLLO SUPPORT TABLES 


IFIOM 

EQu BDAD NO 2314 OR DSS180 ON IOM 

MARK 

IFIOC 

IT DSRD-DSWT-RD-»~340000000000-DKPS1--CIOCS¢DPSK1 s2r35er(DPWTX, 
ET DSRDA) 

IT DSRDAL0eDG,250000240002 +,-CIODMeDPRD1 42435 e0SRDA-FIN1 

IT DSWT-MTRV-WReAS4QOQ000000000-DKPS1,-CIOCSA-DPSK1, 

ETC Crseer(DPWTX*ZDSWTA) 

MARK 


DSS190 FAMILY READ/WRITE/ FORMAT TABLES 


IFIOM 
ry DIORD-DIWT »-RD-250000000000--4CIODM/DIRD142-50e-FIN1 
ZERO DOWT»ISMDRD LINK/MODE | 

OCT 250000000000 IOCPC 

ZERO ISMPSSReISCIODM IOPSS/IOCIO 

ZERO ISMPCSR IOPCS 

ZERO ISDORD142 1OSTS/IOTMO 

ZERO S50, IORTM,-IORTY 

ZERO ISFIN1 IONXT 

IT DIWT-DORH-WReSTOO0000000D s+, CIODMsDOWT1I 2 650e-FIN1 
ZERO DIRHsISMDWR LINK/MODE 

OCT 310000000000 IOCPC 

ZERO 


ISMPSSReISCIODM IOPSS/IOCIO 
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RELEASED 


O1DEC80 


CO9DEC79) 


CO9DEC?79) 
CO9DEC?9) 
CO9DEC79) 
CO9DEC?9) 
C21APR773) 
C27APR77) 
C21APR77] 
C21APR77) 
C21APR?77) 
C27APR77) 


CO9DEC7T9] 


CO9DEC?79) 
CO9DEC?9I) 
CO9DEC79 J 
CO9DEC?79) 
C21APR77) 
C21APR77) 
C21APR77]) 
C21APR77] 
C21APR77) 
C21APR77) 
C21APR77] 
CO9DEC79) 
C21APR77 4 


COIMAY793 
COMAY79) 
CO9DEC79) 
CO9DEC79) 
COIMAY?793 


COIMAY79] 


ao OG OG & 6 oS GS 6S & 6 oS 


Oo =O 45 0 3G «oe wor 


OO © OO 2 © © © © ©. & © OO © Oo Oo ©. a 30 


P10 


000245 
000246 
000247 
000250 


000251 
000252 
000253 
000254 
000255 
000256 
000257 


000260 
000261 
000262 
000263 
000264 
000265 


000266 


000267 
000270 
000271 
000272 
000273 
000274 
000275 


000276 
O002¢77 
000300 
000301 
000302 
000303 
000304 


000305 
000306 
000307 
000310 
000311 
O003i12 
000313 


09/03/81 09:08:53 
T 
002667 QO00000 R. 
004352 000002 R. 
000062 000000 .. 
004252 000000 R. 
000251 
000260 420000 R. 
270000000000 o- 
002663 003077 RR 
002667 000000 R. 
004352 000002 R. 
O00062 000000 .. 
004252 900000 R. 
900260 
000267 430000 R. 
170000000000 ee 
002663 003077 RR 
O02220 000000 R. 
004352 000002 R. 
Oc0062 090000 .. 
004252 000000 R. 
000267 
000276 431000 R. 
1700006000000 oe 
002663 003077 RR 
002220 G00001 Rk. 
004352 000002 R. 
OC0062 QOO0CO000 .. 
004252 000000 R. 
000276 
000305 432000 R., 
170000000000 = 
002663 003077 RR 
002220 000002 R. 
004352 000002 R. 
000062 000000 .. 
004252 000000 R. 
000305 
000701 433000 R. 
170000000000 a. 
002663 003077 RR 
002220 000003 R. 
004352 000002 R. 
000062 OO0000 .. 
O004e52 O00000 R. 
000314 
000314 


S77 


600 


601 


602 


603 


604 


606 


DORH 


DOFTO 


DOFT1 


DIFT2 


DOFT3 


x 


ENDIOM 


DORD 
ENDIOC 


* 


DOTSS EXECUTIVE CINSERT SEGMENT) 


DTSS TRADE SECRET 


PHYSICAL I/0 ~~ MAIN DRIVER TABLES -- DISK 
ZERO ISMPCSR IOPCS 
ZERO ISDIWT1 »2 IOSTS,IOTMO 
ZERO 50, IORTMsIORTY 
ZERO ISFIN1 IONXT 
IT DIRH/-DIFTO-RHs2 70000000000, ,CIODM,-DIORD142-50--FIN1 
ZERO DOFTOQ-ISMDRH LINK/MODE 
OCT 270000000000 IOcPC 
ZERO ISMPSSRe-ISCIODM IOPSS/IOCIO 
ZERO ISMPCSR IOPCS 
ZERO ISDIORD1 4-2 IOSTS-/IOQTMO 
ZERO 50, IORTMsIORTY 
ZERO ISFIN IONXT 
IT DOFTO-DOFTI-FTO~170000000000--(TIBIT-0O) -CIODM,-D9OFT1-42-50e-FIN1 
ZERO DOFTI/ISMDFTO LINK/MODE 
OcT 170000000000 IOCPC 
ZERO ISMPSSRe-ISCIODM IOPSS/IOCIO 
LERG ISTIBIT,O IOPCS 
ZERO ISDOFT1,2 IOSTS-IOTMO 
ZERO 50+ IORTM,IORTY 
ZERO ISFIN1 IONXT 
IT DOFTI,-D9FT2eFT1-170000000000,-(TIBIT.1) -CIODMA-DOFT1,2-50e-FIN1 
ZERO DOFT2@- I BMDFT1 LINK/ MODE 
OCT 470000000000 IOCPC 
ZERO ISMPSSReISCIODM IOPSS/IOCIO 
ZERO ISTIGITs»1 IOPCS 
LERO ISDOFT1,42 IOSTSs»IOTMOD 
ZERO 50, IORTM,IORTY 
ZERO ISFIN1 IONXT 
IT DOFT2,D9FT3eFT2-,170000000000-,-(TIBIT»-2) -CIODM-DOFT1,2,50eeFIN1 
ZERO DOFT3/ISMDFT2 LINK/MODE 
OCT 170000000000 LOCPC 
ZERO ISMPSSRseISCIODM IOPSS/IOCIO 
ZERO I$TIBITs2 IOPCS 
ZERO ISDOFT1 +42 IOSTSsIOTMO 
ZERO 50+ IORTMs IORTY 
ZERO ISFIN1 IONXT 
Ij DOFTSMTRVZFT3-170000000000-,-(TIBIT-3) ,CIODMA-DIOFT1,2-,50eeFIN1 
ZERO MTRV-ISMDFT3 LINK/MODE 
OcT 1700009000000 IOCPC 
ZERO ISMPSSReISCIODM IOPSS/IOCIO 
ZERO ISTIBIT,.3 IOPCS 
ZERO ISDOFT142 IO0STS/IOTMO 
ZERO 50, IORTM,IORTY 
ZERO ISFIN1 IONXT 
MARK 
~ TFIOC 
EQU BDAD NO DSS 190*S ON I0C'S 
MARK 
IFIOC 
es DSWTA20-D0Ge351000024000244-CIODM-DPWT1 4-203 eDSWIASFINI 
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T PHYSICAL I/O -- MAIN DRIVER TABLES -- DISK RELEASED 01DEC80 
0 612 ENDIOC MARK CO9DEC79I 
O 

O 
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000314 
000315 
000316 
000317 
000320 
000321 
000322 


000323 
000324 
000325 
000326 
000327 
000330 
000331 


000332 
000333 
000334 
000335 
000336 
000337 
000340 


000341 
000342 
000343 
000344 
000345 


O. © © Or © OC 9G 20 3G °O. @ © 2 Oo OO OOo DO 


09/03/81 
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000314 


000314 
000323 600000 
130000000000 


002663 
002667 
004544 
000003 
004252 


000350 


003063 
000000 
000062 
000006 
000000 


000323 


400000 


030600000090 


002663 
002667 
004572 
000003 
004016 


003063 
000000 
000036 
000332 
060341 


B00 5 5.2 


000332 

9009332 
000000 700000 
130000000000 
902663 003074 
002667 090090 
004674 000002 
000002 000000 
004707 000000 


000341 


000341 
000000 700000 
130000000000 
002663 003074 
002667 000000 
004674 000002 


09:08:53 


613 
614 
615 
616 
617 
618 
619 
620 
621 


622 


623 
624 
625 
626 
627 
628 
629 
630 
631 
632 


633 
634 
635 
636 
637 
638 


DTSS EXECUTIVE CINSERT SEGMENT) 


DTSS TRADE SECRET 


PHYSICAL I/0 ~~ MAIN DRIVER TABLES -- CONSOLE 
TTLS PHYSICAL I/0 -= MAIN DRIVER TABLES = CONSOLE 
* 
* 
* CONSOLE TYPEWRITER TABLES 
* 
* 
IFIOM 
* 
IT CNWT-CNRD-WRe1 30000000000 4--CIOCP/CNWT1450634-FIN1 
CNWT ZERO CNRDsISMOWR LINK /MODE 
OCT 130000000000 IOCPC 
ZERO IDMPSSRe-ISCIOCP IOPSS/IOCIO 
ZERO ISMPCSR IOPCS 
ZERO ISCNWT1,50 TOSTS-I1OTMO 
ZERO 30 IORTMs,IORTY 
ZERO ISFIN1 IONXT 
IT CNRD-CNAL/ZRD-O3S00000000004--CIOCPA-CNRD1,30,3-,CNWIAs (CCLINKsCNWTB) 
CNRD ZERO CNAL»~ISMORD LINK/MODE 
OCcT 030000000G00 IOCPC 
ZERO ISMPSSRe-ISCIOCP IOPSS/IOCIO 
ZERO ISMPCSR IOPCS 
ZERO ISCNRD1430 IOSTS,IOTMO 
ZERO 3eCNWTA IORTMsIORTY 
ZERO ISCLINKsCNWTB IONXT 
* 
ENDIOM MARK 
IFIOC 
IT CNWT/CNRD-WRe1 3000000000024, -CNW1T1-50-3-,-FIN1 
IT CNRD-CNAL sRD-0 30000000000 44 -CNRD1-30e3eCNWIASCCLINKsCNWT 
ETE B) 
ENDIOC MARK 
* 
IFIOM 
IT CNWTA-0-DG41 300000000004, ,CIOTY-CNWI2 oe o2v eo CNDLX 
CNWTA ZERO O,ISMDDG LINK/MODE 
OCT 130000000000 IOCPC 
ZERO ISBMPSSR-ISCIOTY LOPSS/IOCIO 
ZERO ISMPCSR IOPCS 
ZERO ISCNWT2-2 IO0STS/IOTMO 
ZERO var IORTM,IORTY 
ZERO ISCNDLX IONXT 
ENDIOM MARK 
IFIOC 
IT CNWTA20-0G6-1300000000004,,CIOTY-CNWI2-2e2eeMTBSX 
ENDIOC MARK 
* 
i CNWTB-0,-0G6-130000000000,4-,CIOTY-CNWI2-2e2ee-CNRDX 
CNWTB ZERO Os ISMDDG LINK/MODE 
OCT 130000000000 IOCPC 
ZERO ISMPSSRAISCIOTY IOPSS/IOCIO 
ZERO ISMPCSR IOPCS 
ZERO ISCNWT2,2 IOSTS/IOTMO 
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RELEASED O1DEC80 


CO9DEC79I 
CO9DEC?79] 


CO9DEC79] 
CO9DEC?T9IJ 
CO9DEC?79) 


COODEC7TI] 


CO9DEC?T9I) 
COODEC79I 
CO9DEC79) 
CO9DEC 79) 
CO9DEC?79) 
CO9DEC79) 
COSDEC79IJ 
CO9DEC79) 
CO9DEC79] 
CO9DEC79) 


CO9ODEC?9Y 
CO9DEC?79] 
CO9DEC79) 
CO9DEC7TI) 
CO9DEC?9) 
CO9DEC79I 


G (2 O& © © ow © 


LY 


©) 


Ce w > HO 4 “O Os DO 3 1 


oO. O © 68 GO oO G6 OO Oo OO Go Oo 6G OG oS 6 


PIO 


000346 
000347 


000350 
000351 
000352 
000353 
000354 
Q00355 
000356 


OOUS>7 
000360 
000361 
000362 
000363 
000364 
000365 


09/03/81 O92 08355 
T 
geoo0d0e 000000 .. 
004712 000000 R. 
000350 
000350 
000357 340000 R. 
510000000201 ae 
002663 003063 RR 
00266? OO0000 R. 
004557 090002 R,. 
000003 000000 .. 
004247 QO90000 R. 
000357 
000701 070000 R. 
490000070201 oe 
002663 003063 RR 
002433 000000 R. 
005314 000002 R. 
O00002 000000 .. 
004247 000000 R. 
900366 


639 


642 


643 


644 
645 
646 
647 
648 


CNAL 


CNRS 


x 
ENDIOM 


ENDIOC 


PHYSICAL I/0 == MAIN DRIVER TABLES ~-- CONSOLE 

ZERO Par IORTMsIORTY 

ZERO ISCNRDX ILONXT 

IFIOM 

IT CNAL/CNRS-ER/5100000002014/-CIOCP-CNAL1 »2-36-F INO 
ZERO CNRS-ISMDER LINK/MODE 

OCT 510000000201 IOCPC 

ZERO ISMPSSReIS$CIOCP ITOPSS/IOCIO 

ZERO ISMPCSR TOPCS 

ZERO ISCNAL1 42 IOSTS/IOTMO 

ZERO 3 IORTM-,IORTY 

ZERO ISFINO IONXT 

Lt CNRS-MTRV-RS-400000070201 --MPPC2,-CIOCPSCNRSI1,2e2ee-F INO 
ZERO MTRVeISMDRS LINK /MODE 

OCT 400000070201 IOCPC 

ZERO ISMPSSReISCIOCP IOPSS/IOCIO 

ZERO ISMPPC2 IOPCS 

ZERO ISCNRS1 22 IOSTS/IOTMO 

ZERO Qe IORTM,IORTY 

ZERO ISFINO IONXT 

MARK 

IFIOC 

i CNAL*MTRVZER-510000020001 44-4 -CNAL1 2 e3eeF INO 
MARK 


DTSS EXECUTIVE CINSERT SEGMENT) 
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RELEASED O01DEC80 


CO9DEC79) 
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CO1SEP79) 
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O: 
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| 
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| 
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| 
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| 
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| 
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| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
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PIO 


000366 
000367 
000370 
000371 
N00372 
000373 
000374 


000375 
000376 
000377 
000400 
000461 
000402 
000403 


000404 
000405 
000406 
900407 
000410 
000411 
000412 


000413 
000414 
000415 
000416 
000417 
000420 
000421 


O000422 
000423 
000424 
000425 
000426 
000427 
000430 


© © ~O FO ~G Oo OO -.O: © © CO DO 2 2 & ©. © © 


000431 


09/03/81 09:08:53 
T 
000366 
000404 400000 R. 
050000000000 oe 
002663 003117 RR 
002236 000375 RR 
004731 000003 R. 
000006 000422 .R 
002351 000000 R. 
000375 
000000 700000 .4. 
060000000000 oe 
002663 0031311 RR 
002667 000000 R. 
004731 000003 R. 
000006 000422 .R 
002351 000000 R. 
000404 
009440 690000 R&R. 
1590000000090 oe 
002663 O00000 R. 
002236 000413 RI 
094731 000003 R. 
000012 000422 .R 
004252 009000 R. 
000413 
Q00000 7000900 .. 
140000000000 ee 
002663 9900000 PR, 
00266? QO0000 Rk. 
004731 000003 R. 
000012 000422 .R 
004252 000900 R. 
000422 
N00422 
000000 700000 .. 
460000000201 ae 
002663 Q00000 R. 
00266? QOO000 R. 
005026 000003 R. 
000000 000000 .. 
005013 000431 RR 
000431 
000000 700000 .. 


649 
650 
651 
652 
653 
654 
655 


656 


657 
658 


659 


660 
661 
662 
663 


664 


DTSS EXECUTIVE CINSERT SEGMENT) 


+ + & 


MTRD 


MTRDA 


MTwWT 


MTWTA 


MTBSA 


MTERA 


PHYSICAL I/0 ~-~ MAIN DRIVER TABLES ~~ TAPES 

TTLS PHYSICAL I/0 ~~ MAIN DRIVER TABLES ~~ TAPES 
MAGNETIC TAPE TABLES 

IT MTRD-MTWTsRD-O50000000000--(CKMDSMTRDA) -MTCIO-MTRD143-6, 
ETC MTBSA*MTRYX 

ZERO MTWT-ISMDRD LINK/MODE 

OCcT 050000000000 IOCPC 

ZERO ISMPSSRe-ISMTCIO IOPSS/IOCIO 

ZERO ISCKMD-MTRDA IOPCS 

ZERO ISMTRD123 IOSTS/IOTMO 

ZERO 6eMTBSA IORTMsIORTY 

ZERO ISMTRIX IONXT 

IT MTRDAs0-D0G-060000000000+4 MT CIOsMTRD14346-MTBSAsMTROX 
ZERO O,ISMDDG LINK/MODE 

OCcT 060000000000 IOCPC 

ZERO ISMPSSR-ISMTCIO IOPSS/IOCIO 

ZERO ISMPCSR IOPCS 

ZERO ISMTRD1,43 TOSTS/IOTMO 

ZERO 6eMTBSA IORTM,sIORTY 

ZERO ISMTROX | IONXT 

IT MTWTeMTBRoWRe-1T5S0000000000 --( CKMDSZMTWTA)I + -MIWI1e3-10-MTBSA 
ELC aF INI 

ZERO MTBR»eISMDWR LINK/MODE 

OCT 150000000000 IOCPC 

ZERO ISMPSSR IOPSS/IOCIO 

ZERO ISCKMDsMTWTA IOPCS 

ZERO ISMTWT1-3 IOSTS/1IOTMO 

ZERO 1O-MTBSA IORTMs IORTY 

ZERO ISFIN1 IONXT 

IT MTWTA2020G,140000000000++-e-MTWT1-3e10-MTBSAZFINI 
ZERO Ds I SMDDG LINK/MODE 

OCT 140000000000 IOCPC 

ZERO ISMPSSR IOPSS/IOCIO 

ZERO ISMPCSR IOPCS 

ZERO ISMTWT1.3 1OSTSsIOTMO 

ZERO 10,MTBSA IORTMsIORTY 

ZERO ISFINI IONXT 

IFIOM 

IT MTBSA2020Ge4600N0000201 pe oe MTBS1 43 -0e-(MTBSX¢MTERA) 
ZERO O-I1S$MDDG LINK /MODE 

OCT 460000000201 IOCPC 

ZERO ISMPSSR IOPSS/IOCIO 

ZERO ISMPCSR IOPCS 

ZERO ISMTBS1-3 IOSTS-IOTMO 

ZERO 0+ IORTM,IORTY 

ZERO ISMTBSX/MTERA IONXT 

IT MTERA2020G-540000000201 oe eo MTBS1 62404 6MTBX1 

ZERO O,ISMDDG LINK/MODE 
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RELEASED. 01DEC80 


Or “Oh °@ 


CO9DEC 79) 
© 
miwerty = 
O 
O 
(170¢T76] oO 
© 
o 
O 
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O 
O 
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O 
CO9DEC7T9) 
£170CT76] O 
O 
@ 
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Q 


P10 


000432 
000433 
000434 
000435 
000436 
000437 


000440 
000441 
000442 
000443 
000444 
000445 
000446 


000447 
000450 
000451 
000452 
000453 
000454 
000455 


O 
© 
O 
© 
© 
O 
© 
000456 
00437 
O — pandey 
4 nKg: 
O 
O 
O 
O 
C) 
‘@) 
O 


000465 
000466 
000467 
000470 
000471 
000472 
000473 


000474 
000475 
000476 
000477 
000500 
000501 
000502 


000503 
000504 
000505 
000506 
000507 


09/03/81 


T 


940000000201 


002663 
002667 
005026 
000000 
005016 


000447 


000000 
000000 
000002 
000000 
000000 


000440 


310000 


460000000201 


002663 
002667 
005076 
000003 
004247 


000456 


000000 
000000 
000003 
000000 
000000 


000447 


370000 


790000000201 


002663 
002667 
005076 
000003 
004247 


000465 


000000 
990000 
000002 
000000 
000000 


009456 


350000 


550000000201 


002663 
002667 
004731 
000012 
004247 


000474 


000000 
990000 
00000e 
000422 
000000 


000465 


371000 


720000000201 


002663 
002667 
005076 
000003 
004247 


000503 


000000 
000000 
000002 
900900 
000000 


000474 


3900000 


440000000201 


002663 
002667 
004731 
000003 
004247 


O000512 


000000 
000000 
090903 
000422 
000000 


000503 


320000 


450000000201 

002663 000000 
002667 000000 
004731 000062 


09:08:53 


De DwWwe X me DX Ds XY mae DwWwe DD wae DD ADs 
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wes 8e¢ 8 @ 
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Re 
Re 
Re 
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666 


667 


668 


669 


670 
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MTBR 


MTRW 


MTWF 


MTRU 


MTFR 


MTEF 
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PHYSICAL I/0 --= MAIN DRIVER TABLES ~~ TAPES 

OCT 540000000201 ITOCPC 

ZERO ISMPSSR IOPSS/IOCIO 

ZERO ISMPCSR IOPCS 

ZERO ISMTBS1-2 TOSTS/-IOTMO 

ZERO 0» IORTMs IORTY 

ZERO ISMTBX14 IONXT 

IT MTBReMTRW-BRe4 60000000201 - +4 oMTBR143-3eeF INO 
ZERO MTRWe IT SMOBR LINK/MODE 

OCT 460000000201 IOCPC 

ZERO ISMPSSR IOPSS/IOCIO 

ZERO ISMPCSR IOPCS 

ZERO ISMTBR1 43 IOSTS/IOTMO 

ZERO 3° IORTMsIORTY 

ZERO ISFINO IONXT 

IT MTRWOMTWF -RWe 700000000201 oro eMTRW1 oer dee FINO 
ZERO MTWF eI SMDRW LINK/MODE 

OCT 700000000201 IOCPC 

ZERO ISMPSSR IOPSS/IOCIO 

ZERO IZMPCSR IOPCS 

ZERO ISMTRW1 a2 IOSTS/I1OTMO 

ZERO 3 IORTMsIORTY 

ZERO ISFINO IONXT 

it MTIWF -MTRUSZEF -S550000000201 +44 oMTWFI1e2e10eMTIBSAsFING 
ZERO MTRUsISMDEF LINK/MODE 

OCT 550000000201. IOCPC 

ZERO IDMPSSR IOPSS/IOCIO 

ZERO ISMPCSR IOPCS 

ZERO ISMTWF1e2 IOSTS,/-IOTMO 

ZERO 10,-MTBSA IORTMsIORTY 

ZERO ISFINO IONXT 

IT MTRUSMTFR»RUse72CN000000 201 oor eMTRU1 seo Se oe FINO 
ZERO MTFReISMDRU LINK/MODE 

OCT 720000000201 IOcPCc 

ZERO ISMPSSR IOPSS/IOCIO 

ZERO ISMPCSR IOPCS 

ZERO ISMTRU1¢2 IOSTS/IOTMO 

ZERO 3 IORTMsIORTY 

ZERO ISFINO IONXT 

IT MTFRoMTFF oe FRe440000000201 are -MTFR1 eo 3 e353 e¢MTBSASFINO 
ZERO MTFFeISMDFR LINK/ MODE 

OCT 440000000201 IOCPC 

ZERO ISMPSSR IOPSS/IO0CIO 

ZERO ISMPCSR IOPCS 

ZERO ISMTFR1 +3 IOSTS-1IOTMO 

ZERO 3/MTBSA IORTMs,IORTY 

ZERO ISFINO IONXT 

IT MTFFOMTBF-FF e450000000201 46+ -MTFFI,S0e3 eMTBSA/FINO 
ZERO MTBFe,ISMDFF LINK/MODE 

OCT. 450000000201 IOCPC 

ZERO ISMPSSR IOPSS/IOCIO 

ZERO ISMPCSR IOPCS 

ZERO ISMTFF1,50 IOSTS,IOTMO 


RELEASED O1DEC8&0 


QO O O° © QO ©@ 


O 


C. 


G66 6 G Oo Oo Oo oS GoGo so 


| 
| 
| 
| 
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| 
| 
| 


erent Sand} SS ATI 


PIO 


000510 
000511 


O 
O 
O 
O 


000512 
000513 
000514 
000515 
000516 
000517 
000520 


000521 
000522 
000523 
000524 
000525 
000526 
000527 


000530 
000531 
000532 
000533 
000534 
000535 
000536 


000537 
000540 
000541 
0090542 
000543 
000544 
000545 


000546 
000547 
000550 
000551 
000552 
000553 
000554 


000555 
000556 
000557 


OY = 1 “OO. 4 A OO: 1, OR MS Oe OE Oe +e 


09/03/81 09 
T 


000003 000422 
004247 000000 
000512 
000521 330000 
470000000201 
002663 000000 
002667 000000 
005076 000062 
000003 000000 
004247 000000 


000521 
000530 240000 
600000000201 


002663 
002667 
005063 
000003 
004247 


000537 


000000 
000000 
00000e 
0900000 
000000 


000539 


250000 


610000000201 


002663 
002667 
005063 
000003 
004247 


000546 


000000 
000000 
000002 
000000 
000000 


000537 


231000 


640000000201 


002663 
002667 
005063 
000003 
004247 


000555 


000000 
000000 
000002 
000000 
000000 


000546 


232000 


610000000201 


002663 
002667 
005063 
000003 
004247 


000564 


0900000 
900000 
000002 
000000 
000000 


000555 


233000 


600000000201 


002663 


000000 


208353 


acne 
Re 


671 


672 
673 
674 
675 
676 
677 
678 


679 


680 


681 


682 


DTSS EXECUTIVE CINSERT SEGMENT) 


MTBF 


+ + + te OF 


MTSH 


MTSL 


MT D1 


MT D2 


MTD3 


PHYSICAL I/0 -- MAIN DRIVER TABLES ~-= TAPES 
ZERO 3/MTBSA IORTM-IORTY 

ZERO ISFINO IONXT 

IT MTBF oMTSH-BF,-470000000201 44, ,MTBF1,5043-,FINO 
ZERO MTSH-ISMDBF LINK/MODE 

OCT 470000000201 IOCPC 

ZERO ISMPSSR IOPSS/I0CIO 

ZERO ISMPCSR IOPCS 

ZERO ISMTBF1,50 IOSTSsI1OTMO 

ZERO 3 IORTM,IORTY 

ZERO ISFINO IONXT 


NOTE THAT THE MTSH AND MTSL COMMANDS ARE THE DEFAULT 7? TRACK SET 
HIGH AND LOW COMMANDS AND MAY BE CHANGED WITH AN ENV DENSITY CARD. 


DTSS TRADE SECRET 


THE COMMANDS MTD1-MTD4 ARE SET 200/556/800/1600, 


IT 
ZERO 
OCT 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
LT 
ZERO 
OcT 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
IT 
ZERO 
OCT 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
| 
ZERO 
OCT 
ZERO 


MTSH»AMTSL»SH,-600000000201 ore »MTSH1 eee der F IND 


MTSL-ISMDSH 
600000000201 
ISMPSSR 
ISMPCSR 
ISMTSH1 42 

3” 

ISFINO 


LINK/MODE 
IOCPC 
IOPSS/IOCIO 
LOPS 
IOSTS/IOTMO 
IORTMsIORTY 
IONXT 


MTSL»MT01,4SL,610000000201 soe sMTISLIe-203ee0F INDO 


MTD1-I1$MDSL 
610000000201 
ISMPSSR 
ISMPCSR 
ISMTSL1 42 

3% 

ISFINO 


LINK/MODE 

IOCPC 

IOPSS/I10CI0 

IOPCS 

IOSTS/1IOTMO 

IORTM,sIORTY 

IONXT 


MTD1 oMTD2401 640000000201 ooo -MID1I1 o2 eo 3eeF IND 


MTO2-/1$MDD1 
640000000201 
ISMPSSR 
ISMPCSR 
ISMTD1122 

3” 

ISFINO 


LINK/MODE 
IOCPC 
IOPSS/IOCIO 
LOP GS 
IOSTS/1OTMO 
IORTMsIORTY 
IONXT 


MTD26MTD32022-610000000201 oor eMTD21 o2 ode eF INO 


MTD3-ITSMDD2 
610000000201 
ISMPSSR 
ISMPCSR 
ISMTD21-2 

3- 

ISFINO 


LINK/MODE 
IOCPC 
IOPSS/IOCIO 
TOPCS 
IOSTS/1OTMO 
IORTM-IORTY 
IONXT 


MTD32MTD4,03-600000000201 +o -MTD31 e2e35eerF INO 


MTD4/I1S5MDD3 
600000000201 
ISMPSSR 


LINK/MODE 
IOCPC 
IOPSS/IOCIO 
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C21APR77) 
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Oo Cr a. 6 
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ne ee ee ee te ee ee ee 
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onl 
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000560 
000561 
000562 
000563 


000564 
000565 
000566 
000567 
000570 
000571 
Q0057e 


000573 
000574 
000575 
000576 
000577 
000600 
000601 


090602 
000603 
000604 
000605 
000606 
000607 
000610 


000.611 
000612 
000613 
000614 
000615 
000616 
000617 


000620 
000621 
000622 


Oo 2 ©. ©: “O. 3 © © “oO “Oo Scr © soe 2 Oe 3 & eS 


09/03/81 09:08:53 
T 
002667 000000 R. 
005063 000002 R. 
000003 000000 .. 
004247 000000 PR. 
000564 
000573 234000 R. 
650000000201 ae 
002663 000000 R,. 
Q00266? QO00000 Rk. 
005063 000002 R. 
000003 000000 .. 
004247 QOO0000 PR. 
000573 
000602 235000 Rk. 
410000000201 e. 
092663 OGO000 R. 
002667 O00000 R. 
005063 000002 R. 
900003 000000 .., 
004247 000000 R. 
241000 
000602 
000611 241000 R. 
650000000201 e. 
002663 0009000 R. 
002667 OO0000 R. 
005063 O00002 R. 
000003 900000 .. 
004247 000000 R. 
000611 
900620 270000) R. 
620000000291 oe 
002663 O00000 R, 
902667 000000 R. 
005063 000002 R. 
000003 000000 .. 
004247 QO0000 R. 
000620 
000627 360000 R. 
950000000201 ae 
002663 OO00000 R. 


683 


684 


685 
686 
687 
688 
689 
690 
691 
692 
693 
694 
695 
696 


697 
698 


699 


DTSS EXECUTIVE CINSERT SEGMENT) 


PHYSICAL 1/0 


ZERO 
ZERO 
ZERO 
ZERO 
IT 

ZERO 
OCT 

ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
1 | 

ZERO 
OCT 

ZERO 
ZERO 
ZERO 
ZERO 
ZERO 


MTD4 


MT D5 


* * * F & HH 


HEAD 
BOOL 
HEAD 


MDD16 


ry 
ZERO 
OCT 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 


MTD16 


IT 
ZERO 
OCT 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
IT 
ZERO 
OCT 
ZERO 


MT SP 


MTWO 


OLD SOFTWARE. 
ABOVE DENSITY DRIVES, 


ISMPCSR 
ISMTD3142 
3 

ISFINO 


~~ MAIN DRIVER TABLES -- 


DTSS TRADE SECRET 


TAPES 


IOPCS 
IOSTSsIOTMO 
IORTMsIORTY 
LONXT 


MTD4e¢MTD5-04-650000000 201 vo oe -MTID41 o2 vo Se oF INDO 


MTOS/ISMDD4 
650000000201 
ISMPSSR 
ISMPCSR 
ISMTD41 42 

3, 

ISFINO 


LINK/MODE 

IOCPC 

IOPSS/IOCIO 

IOPCS 

IOSTS/IOTMO 
IORTMsIORTY 

IONXT 


MTDSo¢MTD16.D544100000002O1++ 4 -MTD5142r34/ FINO 


MTD16-ISMDD5 
410000000201 
ISMPSSR 
ISMPCSR 
TSMTO51-2 

3” 

ISFINO 


I 
241090 
7 


LINK/MODE 
IOCPC 
IOPSS/IOCIO 
IOPCS 
TOSTS/1IOTMO 
IORTM,IORTY 
IONXT 


THE FOLLOWING COMMAND IS HERE FOR COMPATABILITY WITH 
AS SOON AS EVERYONE CHANGES OVER TO THE 
ITT SHOULD BE REMOVED. 

(NOTE) MAY 79 LDUMP IS STILL USING THIS DRIVE. 

IT SHOULD BE FIXED =~ 


A.C. 


RESET TO DEFINE THE SOFTWARE COMMAND SYMBOL 
OBSELETE SET 1600 BPI COMMAND 
RESET HEAD 


MTDIG4MTSP20164 650000000201 4 e+ eMTD41 s2e3ee FINO 


MTSP,ISMD016 
650000000201 
ISMPSSR 
ISMPCSR 
ISMTD41 22 

3» 

ISFINO 


MTWO»r IT BMDSP- 
620000000201 
ISMPSSR 
ISMPCSR 
ISMTSPis2 

3” 

ISFINO 


LINK/MODE 
IOcPe 
IOPSS/IOCIO 
IOPCS 
IOSTSs1OTMO 
IORTM, IORTY 
IONXT 


MTSPoMTWO%SP 2620000000201 por oe MTSP1 2 er 3eeF IND 


LINK/MODE 
IOCPC 
IOPSS/IOCIO 
IOPCS 
IOSTS-IOTMO 
IORTM,IORTY 
IONXT 


MTWOeMTER-WO 2550000000201 oo oMTWFE1 e210 2MTBSA-FINO 


MTERs I SMDWO 
950000000201 
ISMPSSR 


LINK/MODE | 
IOCPC 
IOPSS/IOCIO 
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COWMAY793 
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C21APR77) 
[21APR77] 
COMAY79) 
CLOTMAY79) 
C21APR/77]) 
C2TAPR?7) 
C2TAPR?77) 
C21APR77) 
C2TAPR77]) 
C21APR77] 


CO9DEC79) 


O: qo Oe Oe 1c? SS +O. 12> 40. Ge © 


~) 
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CPWT ZERO CPSB-ISMDWR LINK/MODE 
OCT 110000090614 IOCPC 
ZERO ISMPSSReISCIOCP IOPSS/IOCIO 
ZERO ISCKMD,CPWTA IOPCS 
ZERO ISCPWT1,27 TOSTSs I OTMO 
ZERO 3, IORTMsIORTY 
ZERO ISFIN1 IONXT 
IT CPWTA20-06,120000000614,,,CIOCPA-CPWT14743--F INI 
CPWTA ZERO Or IZSMDDG LINK/MODE 
OCT 120000000614 IOCPC 
ZERO ISMPSSR-ISCIOCP IOPSS/IOCIO 
ZERO ISMPCSR IOPCS 
ZERO ISCPWT1,7 IOSTS/1OTMO 
ZERO 3 IORTMsIORTY 
ZERO ISFIN1 IONXT 
x 
ENDIOM MARK 
IFIOC 
* 
5 | CPWT-CPSB-WRe-AT100000400144-°(CKMD-CPWTA) -ACIOCP,CPWTI-% e300 
ETC FIN 
IT CPWTA2020G4-120000040014,--,CIOCP2CPWI1 slo derF INI 
rt 
ENDIOC MARK 
* 
* 
IT BPWT-CPSBeWR-IT1T1000CO00000--(CKMD,BPWTA) ae CPWI1 elo deeF INI 
BPWT ZERO CPSB-ISMDWR LINK/MODE 
OCT 170000000000 LOCPC 
ZERO ISMPSSR IOPSS/I10CIO 
ZERO ISCKMD,BPWTA IOPCS 
ZERO I$SCPWT147 IOSTSeIOTMO 
ZERO 3 IORTMsIORTY 
ZERO ISFIN1 IONXT 
IT BPWTA-040G6-1200000000004-e,CPWI1-7e35rFIN1 
BPWTA ZERO O,ISMDDG LINK/MODE 
OCT 120000000000 IOCPC 
ZERO ISMPSSR IOPSS/IOCIO 
ZERO ISMPCSR IOPCS 
ZERO ISCPWT1.7 IOSTS/I0TMO 
ZERO 3 IORTMsIORTY 
ZERO ISFIN1 IONXT 
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310000000000 
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900000000201 
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000000 
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000000 
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210000 


090000000000 
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000000 
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OCT 
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IFIO 


IT 
ZERO 
OCT 
ZERO 
ZERO 
ZERO 
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ZERO 
IT 
ZERO 
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ZERO 
ZERO 
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ZERO 
IT 
ZERO 
OCT 
ZERO 
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ZERO 
IT 
ZERO 
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1 
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OCT 
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PHYSICAL 1/0 -- 


DTSS TRADE SECRET 


~~ MAIN DRIVER TABLES ~~ PRINTER 


MAIN DRIVER TABLES ~~ PRINTER 


TER TABLES 
PRWTsPRMWeWRe-310000000000 »PRPS1 eo er PRWT1 o2e3eeF INI 
PRMW,ITSMDWR LINK/MODE 
310000000000 TOCPC 
ISPRPS1 IOPSS/I0OCIO 
ISMPCSR IOPCS 
ISPRWT1 22 IOSTS/IOTMO 
3% IORTM-,IORTY 
ISFIN1 IONXT 

M 
PRMWsePRAR-MW2310000000600 -PRPS1-,CIOMR-PRW1143-0e-FIN1 
PRARsISMDMW LINK /MODE 
310000000600 IOCPC 
ISPRPS1T/ISCIOMR IOPSS,IOCIO 
ISMPCSR IOPCS 
ISPRWT1,3 IOSTSsIOTMO 
O» IORTMs,IORTY 
ISFINI IONXT 
PRASsPRS6ZAS -000000000201 -SWAITs»-CIOCPAPRRU2,243,eF IND 
PRS6/IS3MDAS LINK/MODE 
000000000201 IOCPC 
ISSWAIT/ISCIOCP IOPSS,IOCIO 
ISMPCSR IOPCS 
ISPRRQ2-2 IOSTS-/IOTMO 
3% IORTM,IORTY 
ISFINO IONXT . 
PRARsPRAS eAR-O00000000201 -SWAITs~-CIOCPe+PRRQ1,2-3-,-F INO 
PRASsI SMDAR LINK/MODE 
000000000201 IOCPC 
ISSWAIT/-ISCIOCP IOPSS,IOCIO 
ISMPCSR IOPCS 
ISPRRQ1 42 IOSTS-s 1OTMO 
3 IORTM,IORTY 
ISFINO TONXT 
PRS6ePRS9e¢SDe0-PRS61 oe ERROR oo oe pERROR 
PRS9-/ISMDSD LINK/MODE 
0 IOCPC 
ISPRS61 IOPSS/IOCIO 
ISMPCSR IOPCS 
ISERROR, IOSTSsIOTMO 
? IORTM-,IORTY 
IZSERROR IONXT 
PRSO*PRWIsSALOrPRSO1 ee eERROR eo ee eERROR 
PRWI,ISMDSA LINK/MODE 
0 LOCrE 
ISPRS91_ 


IOPSS/IOCIO 
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002667 
002577 
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DTSS TRADE SECRET 


PHYSICAL I/0 ~~ MAIN DRIVER TABLES -- PRINTER 

ZERO IZMPCSR IOPCS 

ZERO ISERROR, 1OSTS/1IOTMO 

ZERO , IORTM-IORTY 

ZERO ISERROR IONXT 

IT PRWI-PRRV-WI-1T40000000000 -PRPS2ee-PRWT1-3-0eeFIN1 
ZERO PRRV,ISMDWI LINK/MODE 

OCT 140000000000 TOCPC 

ZERO ISPRPS2 IOPSS/IOCIO 

ZERO ISMPCSR IOPCS 

ZERO ISPRWT1,3 IOSTS,/10TMO 

ZERO 0. IORTMsIORTY 

ZERO ISFIN1 IONXT 

MARK 

IFIOC 

IT PRMWePRARsMWe310000060000-PRPS1-CIOMRePRWI1,3-0-FIN1 
rT PRAR+PRAS-AR-O000000020001 -SWAIT,//CIOCP,PRRA1 42 634-F INO 
IT PRASePRRV-AS-O0000002Z0001 -SWAI Tre rePRRQ2e2o3eeFINO 
MARK 

I FIOM 

IT P4WT oP4SMWesWR e-3S5000G000000-PRPS1-°0CKMD-P4WTD) -oPRWT1 oer dere 
ETL FIN1 

ZERO P4MW, LSMDWR LINK/ MODE 

OCT 350000000000 IOCPC 

ZERO ISPRPS1 IOPSS/IOCIO 

ZERO ISCKMD,P4WTD IOPCS 

ZERO ISPRWT1 22 1O0STSs/IOTMO 

ZERO 3, IORTM-,IORTY 

ZERO ISFINI IONXT 

IT P4GWTD-0eD0Ge3 10000000000 2PRPS1 oso ePRWT1 o-2e3eerF INI 

ZERO OO, ISMDDG LINK/MODE 

OCT 310000000000 IOCPC 

ZERO ISPRPS1 IOPSS/IOCIO 

ZERO ISMPCSR IOPCS 

ZERO ISPRWT1 22 IOSTS»IOTMO 

ZERO 3 IORTMs, IORTY 

ZERO ISFIN IONXT 

IT P4SMWeP4GARsMWe350000000600-PRPS1,(CKMD-P4MWD)-CIOMR-PRWT1, 
ETS 340s, FINI 

ZERO P4SARs I SMDMW LINK /MODE 

OCT 350000000600 IOCPC 

ZERO ISPRPS7Te/ISCIOMR IOPSS,IOCIO 

ZERO ISCKMD-P4MWD IOPCS 

ZERO ISPRWT1,3 IOSTS/IOTMO 

ZERO Or. IORTMs IORTY 

ZERO ISFIN1 IONXT 

IT P4MWD-0-DG/310000000600-PRPS1,,CIOMR,PRWT1,3-0e-FIN1 
ZERO O-ISMDDOG LINK/MODE 

OCT 310000000600 IOCPC 
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P4AR 


P4AS 


P4S6 


P4S9 


P4wl 


P4WV 


DTSS TRADE SECRET 


PHYSICAL I/0 ~~ MAIN DRIVER TABLES -- PRINTER 
ZERO ISPRPS71/ISCIOMR IOPSS,IOCIO 

ZERO IZSMPCSR IOPCS 

ZERO ISPRWT123 IOSTS/IOTMO 

ZERO O- IORTMs,IORTY 

ZERO ISFIN1 IONXT 

IT P&SAR/P4AS-ARsO00000000201 -SWAIT ore PRRQ1 e2e35eeF INO 
ZERO P4AS/I$MDAR LINK/MODE 

OCT 000090000201 ITOcPC 

ZERO ISSWAIT IOPSS/IOCIO 

ZERO ISMPCSR IOPCS 

ZERO ISPRRQ1 42 IOSTSsIOTMO 

ZERO 3 IORTMs IORTY 

ZERO ISFINO IONXT 

IT P4AS eP4S6eAS -Q00000000201 -SWAITer + -PRRQ2e2-3e-FINO 
ZERO P4&S6/I1SMDAS LINK/MODE 

OCcT 000000000201 IOCPC 

ZERO ISSWAIT IOPSS/IOCIO 

ZERO ISMPCSR IOPCS 

ZERO ISDPRRQ2 v2 IOSTS,/IOTMO 

ZERO 3- TORTMsIORTY 

ZERO ISFINO IONXT 

IT P&S6eP4S9+SDs0 + P4S 61 or cERROR ec oe eERROR 
ZERO P&4S9-I3MD0SD LINK/MODE 

OcT 0 IOCPC 

ZERO ISP4S61 IOPSS/IOCIO 

ZERO IBMPCSR IOPCS 

ZERO ISERROR> IOSTS/IOTMO 

ZERO ’ IORTMsIORTY 

ZERO ISERROR IONXT 

IT P4SD+P4WI SA 02 P4S91 oe pERROR oe oe ERROR 
ZERO P4WI,ISMDSA LINK/MODE 

OCT 0 TOCPC 

ZERO ISP4S91 IOPSS/IOCIO 

ZERO ISMPCSR IOPCS 

ZERO ISERROR, IO0STSs/IOTMO 

ZERO , IORTM,IORTY 

ZERO ISERROR ITONXT 

IT P4WI-P4SWV-WI-O1T0000000000-PRPS14e-PRWI145,0e-FIN1 
ZERO P4WV-ISMDWI LINK/MODE 

OCT 010000000000 IOCPC 

ZERO ISPRPS1 IOPSS/IOCIO 

ZERO ISMPCSR IOPCS 

ZERO ISPRWT173. IOSTS-IOTMO 

ZERO 0, 1ORTM,IORTY 

ZERO ISFIN1 IONXT 
IT P4WVePRRV-WV-O50000000000-PRPS144-PRW1143-0--FIN1 
ZERO PRRV»ISMDWV LINK/MODE 

OCT 050000000000 IOCPC 

ZERO ISPRPS1 IOPSS/IOCIO 

ZERO ISMPCSR IOPCS 

ZERO ISPRWT1,-3 IOSTS-/IOTMO 

ZERO O- IORTMsIORTY 
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PIO 09/03/81 09:08:53 DTSS EXECUTIVE CINSERT SEGMENT) 
T PHYSICAL I/0 ~~ MAIN DRIVER TABLES -=- PRINTER 
001274 004252 000000 R. ZERO ISFIN1 IONXT 

847 * 
848 ENDIOM MARK 

001275 849 IFIOC 
850 P4WT E QU BDAD NO URMPC PRINTERS FOR 600 
851 ENDIOC MARK 
852 * 

900701 853 PRRV EQU MTRV 
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RELEASED O1D0EC80 


PHYSICAL I/0 -=~ MAIN DRIVER TABLES ~~ FRONT END 
TTLS PHYSICAL I/0 ~~ MAIN DRIVER TABLES ~~ FRONT END 
* 
* 
* DN-30 TABLES 
* 
* 
IFIOM 
* 
IT DNRDsZONWT -RDsOT0000000000-eDNPCITs-CIODNADNRD1o2o lo oe CCLINKs DNRDA) 
DNRD ZERO DNWT-/ISMDRD LINK/MODE 
OCT 010000000000 I1OCPC 
ZERO ISMPSSRe-ISCIODN IOPSS/IOCIO 
ZERO ISDNPCI IOPCS 
ZERO ISONRD1-2 IOSTS/IOTMO 
ZERO eo IORTM,IORTY 
ZERO ISCLINKsDNRDA IONXT 
IT DNRDA4020Ge2010000000000++--DNRD2 pe volo er FINI 
UNRDA ZERO O-ISMDDG LINK/MODE 
OCT 010000000000 IOCPC 
ZERO ISMPSSR IOPSS/IOCIO 
ZERO IZMPCSR IOPCS 
ZERO ISDNRD2e2 1OSTS/IOTMO 
ZERO te IORTMs IORTY 
ZERO ISFINI IONXT 
* 
ENDIOM MARK 
IFIOC 
* 
IT DNRDeZDNWTARD-OT100002Z40002-,-DNPCIACIODRADNRD1I seo lor FINI 
* 
ENDIOC MARK 
IFIOM 
‘ . 
IT DNWT-MTRV-WRe-TOOOO0OD00000ODs--CIODN-DNWT1 2-30 (CLINKsDNWTA) 
DNWT ZERO MTRV-ISMDWR LINK/MODE 
OE 100000000000 IOCPC 
ZERO ISMPSSR-ISCIODN IOPSS/IOCIO 
ZERO ISMPCSR IOPCS 
ZERO ISDNWT1 42 IOSTSs1IO0TMO 
ZERO 3” IORTMsIORTY 
ZERO ISCLINKsDNWTA IONXT 
IT DNWTA-0-0G,-10000000000044 --DNWT2-2e3eeFIN1 
DNWTA ZERO O-ISMDDG LINK/MODE 
OcT 100000000000 IOCPC 
ZERO ISMPSSR IOPSS/IOCIO 
ZERO ISMPCSR IOPCS 
ZERO ISDONWT2-2 IOSTS/IOQTMO 
ZERO 3e IORTM-IORTY 
ZERO ISFIN1 IONXT 
* 
ENDIOM MARK 
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PHYSICAL I/0 ~~ MAIN DRIVER TABLES -- FRONT END RELEASED 
716 TABLES 
IT H7RDsZH7TWTARD-O1T0000000000 --( CKMDAH7RDA) oe H7RD1 eer 2oer FINI 
ZERO H7WT eI SMDRD LINK/MODE 
OCT 0710000000000 IOCPC 
ZERO ISMPSSR IOPSS/IOCIO 
ZERO ISCKMDs/H7RDA IOPCS 
ZERO ISH7RD1 #2 IOSTSIOTMO 
ZERO ‘a IORTM,ILORTY 
ZERO ISFIN1 IONXT 
IT H7RDAsLO0-DGe030000000000 oo veH/7RD1 oe veo FINI 
ZERO O-ISMDDG LINK/MODE 
OCT 030000000000 Iocre 
ZERO ISMPSSR IOPSS/IOCIO 
ZERO ISMPCSR LOPCS 
ZERO ISH7RD1 42 IOSTS/-IOTMO 
ZERO le IORTM, IORTY 
ZERG ISFIN1 ITONXT . 

IT H7WTe2H7SMeWReT1T0000000000--(CKMD,ZH7TWTA) ope HPWT1 ee 2r ero FINI 
ZERO H7SMs I SMDWR LINK/MODE 
OCT 110000000000 IOCPC 
ZERO ISMPSSR IOPSS/I0OCIO 
ZERO ISCKMD-/H7WTA IOPCS 
ZERO ISH7WT 142 IO0STSsIOTMO 
ZERO Qe IORTMs LORTY 
ZERO ISFIN1 IONXT 
IT H7WTA202D0641 30000000000 +4 oe H7WT1 oe ocoo FINI 
ZERO Gr, I SMDDG LINK/MODE 
OcT 130000000000 LOCPC 
ZERO ISMPSSR IOPSS/IOCIO 
ZERO ISMPCSR IOPCS 
ZERO IDH7WT1 22 TOSTSsI10OTMO 
ZERO Ce IORTMs IORTY 
ZERO ISFIN1 LONXT 
EQU MTSB SET MODE AS MAG TAPE 
LEVEL. 6: TABEES 
IFIOC 
EQU BDAD NO LEVEL 6S ON I0C 
C MARK 
IFIOM 
LEVEL 6 TABLES 
IT L6RDsLO6WTeRD-710000000000--(CKMD-LERDA) -LO6CIO-LOCHK ee ee2or FINI 
ZERO L6OWT «I SMDRD LINK/MODE 
OCcT 710000000000 IOCPC 
ZERO ISMPSSReISLECIO IOPSS/IOCIO 


O01DEC 80 


C18AUG76) 
CO9DEC?IOI 
CO9DEC79) 
CO9DEC79) 
CO9DEC79) 
CO9DEC?9I 
CO9DEC79) 
CO9DEC79) 
CO9DEC79J 
CO1DEC80I 
CO1DEC804 
CO1DEC80I 
CO1DEC8O0I 


C) 


Oo HO; Oe “0 © © <O:. © © 


O OO OO 


CO: “Oi “Ge Oe. -@ sone 


PIO 


001370 
001371 
001372 
001373 


001374 
001375 
001376 
001377 
001400 
001401 
001402 


001403 
001404 
001405 
001406 
0017407 
001410 
001411 


001412 
001413 
001414 
001415 
001416 
001417 
001420 


001421 
001422 
007423 
001424 
001425 
001426 
001427 


001430 
001431 
001432 
001433 
001434 
001435 
001436 


001437 
001440 
001441 
001442 
001443 
001444 
001445 


O 
O 
O 
O 
© 
O 
O 
O 
O 
© 
O 
O 
O 
O 
O 
O 
O 
© 
O 
O 
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T 
002236 001374 RR 
004462 000002 R. 
000002 000000 .. 
004252 000000 PR. 
001374 +899 
o0c000 700000 .. 
750000000000 .. 
002663 003060 RR 
002667 OGO0000 R. 
004462 000002 R. 
ooo002 ooo0000 .. 
004252 000000 eR. 
001403 +900 
001430 600000 R. 
7190000000000 .. 
002663 003060 RR 
002231 001412 RR 
004462 CO0002 R. 
ooo0o02 on0000 .. 
004252 000000 R. 
001412 +901 
oco000 700000 .. 
76o000000000 .. 
002663 093060 RR 
002236 001421 RR 
004462 000002 R. 
000002 ov0000 .. 
004252 000000 R. 
001421 +902 
000000 700000 .. 
720000000090 .. 
002643 003960 RR 
002667 000000 eR. 
004462 000005 R. 
000001 000000 .. 
004252 000000 Re. 
907430 +903 
001437 100000 R. 
730000000000 .. 
002663 003060 RR 
002667 000000 Re. 
005117 000002 R. 
000002 000000 .. 
004247 000000 R. 
001437 +904 
000645 260000 R. 
ocoocco00000 wt 
002314 000000 Re. 
002667 000000 PR. 
002577 000000 eR. 
000000 o00000 .. 
002577 000000 eR. 
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LORDA 


L6wT 


LOWTA 


L6WTB 


LOAR 


LO6OSA 


PHYSICAL I/0 


ZERO 
ZERO 
ZERO 
ZERO 
IT 
ZERO 
OCT 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
IT 
ZERO 
OCT 
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~- MAIN DRIVER TABLES ~- FRONT END RELEASED O01DEC80 
ISCKMDsL6RDA IOPCS 
ISL6CHKe2 IOSTS-IOTMO 
Qe IORTM,IORTY 
ISFIN1 IONXT 
LERDAAD-DG-7500000000004,-LE6CIO-LOCHKs2v2e FINI CO1DEC80J 
QO, ISMDDG LINK/MODE 
750000000000 IOCPC 
ISMPSSRe-ISLE6CIO IOPSS/IOCIO 
ISMPCSR IOPCS 
ISL6CHKe2 IOSTS-IOTMO 
Qn IORTM-IORTY 
ISFIN? IONXT 
LOWTsL6AR-WRe7100000000004-(CKMLE6-LOWTA)-LOCIO-LOCHKs2e2er FINI CO1T1DEC80I 
LOARs IT EMDWR LINK/MODE 
710000000000 IOCPC 
ISMPSSR-ISLE6CIO IOPSS/IOCIO 
ISBCKML6-LOWTA IOPCS 
I$L6CHK 2 IOSTS-IOTMO 
a IORTM,s IORTY 
ISFIN1 IONXT 
L6WTAe0-DG-7600000000004,(CKMD-L6WTB)-LOCIOA-LOCHK s2oeeo er FIN CO1DEC80) 
O,ISMDDG LINK/MODE 
760000000000 IOCPC 
ISMPSSR-ISLOCIO IOPSS/IOCIO 
IS CKMD,L6OWTB IOPCS 
ISL6CHKe2 IOSTSsIOTMO 
var IORTMs IORTY 
ISFIN1 IONXT 
L6WTB-0-0G,720000000000-,-L6CIO-LECHKs5e14,/F INI CO1DEC8O0I 
O,ISMDDG LINK/MODE 
720000000000 IOCPC 
ISMPSSRAISLOCIO ILOPSS/IOCIO 
ISMPCSR IOPCS 
ISL6CHK,5 IOSTS,/IOTMO 
1, IORTM,IORTY 
ISFIN1 IONXT 
LOARsLGSAFZARZ7 30000000000 se-LO6CIOsMTAR1 »2e2eeF INO CO1DEC8&0) 
LOSAsI SMDAR LINK/MODE 
730000000000 TOCPC 
ISMPSSR/ISL6CIO IOPSS/IOCIO 
ISMPCSR IOPCS 
ISMTAR1 #2 1OSTS/IOTMO 
Qe IORTM,IORTY 
ISFINO IONXT 
LESAsLESMsSAreD00,MTSAI1 soo eERRORe oe oe ep ERROR CO1DEC80) 
LOSMsISMDSA LINK/MODE 
000 IOCPC 
ISMTSA1 IOPSS/IOCIO 
ISMPCSR IOPCS 
ISERROR, I1OSTS-IOTMO 
’ IORTMsIORTY 
ISERROR 


IONXT 


O 
O 
O 


OC) 


Gy “> 1 2O 


CG “Oe WO- se “Oe. 10h or SO sor 4s 2. «ae 


! 
| 
J 
[ 
( 
| 
| 
| 
| 
{ 
| 
| 
| 
l 
| 
| 
| 
| 
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000645 +905 
906 
907 
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EQU 


MARK 


MTSB 


SET MODE AS MAG TAPE 
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RELEASED 071DEC80 
C010EC80) 


CO9DEC7TIQ 
CLO9DEC793 


e 
- 
O 
e 
O 
O 
O 
O 
O 
O 
O 
O 
O 
O 
O 
O 
O 
O 
c 
‘6 
C 


OC Oo & OOo 6G Ooo Go So SG 


PIO 


001446 
001447 
001450 
001451 
001452 
001453 
001454 


. 2 - ie © we: i eo 


001455 
001456 
001457 
001460 
001461 
001462 
001463 


001464 
00171465 
001466 
001467 
001470 
001471 
001472 


001473 
001474 
001475 
001476 
001477 
001500 
001501 


001502 
001503 
001504 
001505 
001506 
001507 
001510 


001511 
001512 
001513 
001514 


09/03/81 09:08:53 
T 
001446 
001446 
0071455 400000 R. 
060000004000 = 
002403 000000 R. 
O02420 QO0000 R. 
005301 00G002 R. 
g000002 000000 .. 
004252 O000000 R. 
001455 
007464 600000 PR. 
o00000000000 as 
004325 002577 RR 
OC2577 QOOOO00 R, 
OC2577 OG0000 R. 
ON000000 000000 .. 
002577 OO00000 R,. 
001464 
901473 070000 R. 
400000070201 o. 
002403 000000 R. 
002433 O00000 R, 
005314 000002 R. 
ag0002 000000 .. 
O0C4247 OONOOU R. 
001473 
001502 640000 R. 
100000000000 eo. 
002403 000000 R. 
002667 OO0000 PR. 
005301 000002 R. 
O00002 G00000 .. 
004252 000000 R. 
001502 
001511 650000 PR. 
170000000000 oe 
002403 000000 Rk. 
002667? O00000 R&R, 
005301 000002 R., 
000002 000000 .. 
004252 000000 R. 
001511 
000672 660000 R. 
360100004000 oe 
002403 000000 R. 
002667 Q00000 R. 


908 
909 
910 
911 
912 
oo 
914 
915 


916 


led 


918 


919 


920 
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PHYSICAL I/0 -- MAIN DRIVER TABLES -- MPC 

TTLS PHYSICAL I/0 -- MAIN DRIVER TABLES -- MPC 
* 
* 
* MPC DRIVER TABLES 
* 

IFIOM 
* 

dot MPRDsMPWT,RD-DO60000004000-MPPS14MPPCI s+ oMPCSIo2e2o oo FINI 
MPRD ZERO MPWT»sITSMDRD LINK/MODE 

OCT 060000004000 IOCPC 

ZERO ISMPPS1 IOPSS/IO0CI0 

ZERO ISMPPC1 IOPCS 

ZERO ISMPCS142 ITOSTS/IOTMO 

ZERO “an IORTMsIORTY 

ZERO ISFIN1 LONXT 

IT MPWT/MPRS,WReAODO-RJCTAERROR-ZERRORSZERRORe oe eERROR 
MPWT ZERO MPRS +I SMDWR LINK/MODE 

OCT 0090 TOCPC 

ZERO ISRJICT,/ISERROR IOPSS,I0CIO 

ZERO ISERROR IOPCS 

ZERO ISERROR, TOSTSsIOTMO 

ZERO ’ IORTMsIORTY 

ZERO ISERROR IONXT 

IT MPRS»¢MPLCARS 2400000070201 -MPPS1oMPPC2 oo MPCS5 62 eco eo FIND 
MPRS ZERO MPLC/ISMDRS LINK/MODE 

OCT 400000070201 1OCPC 

ZERO ISMPPS1 IOPSS/IOCIO 

ZERO ISMPPC2 EOPCS 

ZERO ISMPCS5S-2 IOSTS/IOTMO 

ZERO Cr IORTM,IORTY 

ZERO ISFINO TONXT 

IT MPLCoMPLM-LOC-100000000000 -MPPS144-MPCS2e2e2eeFINiI 
MPLC ZERO MPLMs I SMDLC LINK/MODE 

ocT 100000000000 IOCPC 

ZERO ISMPPS$1 IOPSS/IOCIO 

ZERO ISMPCSR IOPCS 

ZERO ISMPCS2,2 IOSTS/-I1OTMO 

ZERO Ce IORTMs LORTY 

ZERO ISFIN1 IONXT 

IT MPLMsMPLP,LM-110000000000 -MPPS1.45MPCS3,272e7FIN1 
MPLM ZERO MPLP+ISMDLM LINK/MODE 

OCT 110000000000 IOCPC 

ZERO ISMPPS1 IOPSS/IOCIO 

ZERO ISMPCSR IOPCS 

ZERO ISBMPCS3.2 IOSTSsIOTMO 

ZERO Qe IORTMsIORTY 

ZERO ISFIN1 IONXT 

IT MPLPsMTASA/-LPs360100004000-MPPS1+4-MPCS4,2-2e-FIN1 
MPLP ZERO MTASsISMDLP LINK/MODE 

OCT 360100004000 IOCPC 

ZERO ISMPPS1 IOPSS/I0CIO 

ZERO ISMPCSR IOPCS 
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CO9DEC79) 
CO9DEC79) 
CO9DEC79 J 
CO9DEC79) 
CO9DEC79) 
CO9DEC79] 
C18AUG763 
C170CT?6) 


C18AUG76) 


C18AUG76] 


C18AUG76) 


C18AUG76] 


C18AUG76) 


 @e sO: - 


O 
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001515 005301 000002 R. 


001516 Q00002 000000 .. 
001517 004252 Q00000 eR. 


001520 


CO <0 >. 2 Oo 3. © sO “Oo: Ue eC ee 


921 
922 
705 
924 
925 
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* 


ENDIOM 


MPRD 
ENDIOC 


DTSS TRADE SECRET 


PHYSICAL I1/0 -- MAIN DRIVER TABLES -~ MPC 
ZERO ISMPCS4,2 TOSTS-1IOTMO 

ZERO Ce IORTM,sIORTY 

ZERO ISFIN1 IONXT 

MARK 

IFIOC 

EQU BDAD NO MPCS ON I10C 
MARK 
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C18AUG76]) 
CO9DEC79 J 
CO9DEC79) 
CO9DEC79) 
CO9DEC79I 


OP Ge 3Oe 3 sO: ©, © © 


) 


— 


> © Gr Oe GOs - “OF Oy a 2 OL. 
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T 


09:08:53 


DTSS EXECUTIVE CINSERT SEGMENT) DTSS TRADE SECRET PAGE 43 
PHYSICAL 1/0 ~~ USAGE RELEASED O1DEC80 
TTLS PHYSICAL I/0 ~~ USAGE 
HEAD uf 


* © * be He HH eH FH eH HH He Oe he OOOO OHHH HO OH HOH HK OHO 


CALLING SEQUENCE IS TSXO IS10. CONTROL IS RETURNED TO THE 
INSTRUCTION FOLLOWING THE TSX AS SOON AS THE OPERATION IS COMPLETED. COIMAY79) 
THE REGISTER USAGE IS 


REG USAGE 


0 CALLING REGISTER 

T POINTER TO LIST ELEMENT CONTAINING I/0 REQUEST 

S DEVICE NUMBER (0-63) 

Pp PUB NUMBER (0-15) 

Z POINTER TO. ENTRY IN IT TABLE COMMAY79) 


THE LIST ELEMENT HAS THE FOLLOWING STRUCTURE 


WORD USE 

te TSLINK TSLEN 

0 Q$LINK QBSRUN 

1 DEV TYPE 

2 CMD SAVED CMD 

3 PUB SPRET 

4 PMBXI CFULL WORD) 

5 SEKAD CFULL WORD) 

6 QWORD (FULL WORD) 

7 URET ADEXT COSNOV?77) 
10 MODE (NOT ALTERED BY PHYSICAL 1/0) 
11 DAC CFULL WORD) 

12 QUEWD (FULL WORD) 

15 DCwWD CFULL WORD) 

14 SEQ DCW CFULL WORDS) 


THE FOLLOWING PARAMETERS MUST BE INITIALIZED BY 
THE CALLING ROUTINE, AND ARE NOT CHANGED BY PIO. 


IBMODE--MODE OF OPERATION 

NOTEsTHE POSSIBLE VALUES FOR ISMODE ARE IN THE INSERT FILE 
ISDAC~-~DEVICE ADDRESS CODE 

THE LOWER HALF OF THIS WORD CONTAINS THE ADDRESS OF THE RECORD 
ON THE DEVICE WHICH IS TO BE ACCESSED. THIS IS A NUMBER WHICH 
RANGES CONSECUTIVELY FROM Q. THE LOW ORDER SIX BITS OF THE 
UPPER HALF CONTAIN THE DEVICE CODE. THE REST OF THIS HALF-WORD 
IS NOT USED. 

ISDCW--DATA CONTROL WORD LIST 


THIS LIST IS MADE AVAILABLE TO THE IOC TO CONTROL THE TRANSFER 


Oro CO. <& OO GO © 


e 


QO © 


Oo © Os 2 CO i © CF ©. © 


O 


| 
| 
| 
| 
I 
{ 


ae eee | EEE 


O 
© 
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978 
979 
980 
981 
982 
9&3 
984 
985 
986 
987 
988 
989 
990 
991 
79 
795 
994 
995 
O96 
or 
998 
999 
1000 
1001 
1002 
1003 
1004 


cy Or We sO ee 1G OF 3 3 oe OD. OE 
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PHYSICAL I/0 == USAGE 


OF DATA TO OR FROM CORE STORAGE. THE FORMAT IS (0-177) DATA 
ADDRESS» (21-22) ACTION CODE, (24-35) WORD COUNT. 


ISADEXT — ADDRESS EXTENSION FOR I/0 


THIS SHOULD BE SET BY THE CALLING ROUTINE TO BE THE HIGH~ORDER 
SIX BITS OF THE 24 BIT. ADDRESSES OF THE DATA. CREST OF BITS ARE 
SPECIFIED BY THE DCW ADDRESS.) 


THE FOLLOWING WORDS ARE SET BY PHYSICAL I1/0 AS STATUS RETURNS 
FOR THE CALLING ROUTINE. 


ISQUEWD--~QUEWD=--QUEUE WORD 


THIS IS THE QUEUE~WORD STORED BY THE IOC UPON COMPLETION OF THE 
OPERATION THE FORMAT IS (0-5) MAJOR STATUS» (6°11) MINOR STATUS.» 
(12-17) QUEUE-WORD-ADDRESS LOW ORDER BITS, (18-23) IOC/MEM 
STATUS, (24-29) RETURN CODE- (30-35) PUB. THE RETURN STATUS 
CODES ARE (0) ALL DATA CORRECTLY TRANSFERREDs (1) NOT ALL DATA 
TRANSFERRED BUT CORRECT» (2) EOF ENCOUNTERED ON TAPEs ETC.e 

(3) RECOVERABLE ERROR--SOME DATA MAY BE INCORRECT, (4) UNRECOVER- 
ABLE ERROR~-DO NOT REISSUE COMMAND, (5) TIMEOUT. 


TBDCWWD--DATA CONTROL WORD 


THIS IS AN IMAGE OF SMBX UPON TERMINATION. THE ADDRESS FIELD 
IS THE NEXT WORD TO BE TRANSFERRED. 
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RELEASED O1DEC80 


COSNOV?77) 
COSNOV?773 
COSNOV77) 
COSNOV?77J 
COSNOV77) 
COSNOV77) 


Oo OO. @G © @ Gs ~“ © 
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1005 

1006 

1007 

1008 

1009 

1010 

1011 

O12 

1013 

1014 

1015 

1016 

1017 

1018 

1019 

001520 1020 

OOUS20 “OOOBTS 2260 4 ws 1021 
007521 000001 e276 14 .. 1022 
GOtS22 Q00002 2250 146- ws 1023 
OOTo23:- QO0000- 7700 10: a. 1024 


O OO OF OO. OD OO OO ae OO 


DTSS EXECUTIVE CINSERT SEGMENT) DTSS TRADE SECRET 


PHYSICAL I/0 ~~ MACROS AND SUBROUTINES 
TTLS PHYSICAL I1/0 —-- MACROS AND SUBROUTINES 
HEAD I I FOR I/0 
* 
* 
* RREG 
* 
* THIS MACRO RESTORES REGISTERS AFTER QUEUEING OR OTHER 
* OPERATIONS WHICH MAY DESTROY THEM 
* 
RREG MACRO 
TSXO RREG CALL SUBROUTINE 
ENDM RREG 
* 
* SUBROUTINE 
* 
RREG NULL 
L DX P,PUB,T PUB NUMBER TO XR=P 
LOX S/DEV,T DEVICE NUMBER TO XR-S 
LDX €eCMD,T COMMAND TABLE POINTER TO XR-2z 
TRA 0-0 RETURN TO CALLER 


O 

© 
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RELEASED 01DEC80 

e, 

e 

Q 

Co9DEC79I V 

o 

eo 


Cy Ok oo oO tO Or 8S OO 


vv 
4 
© 


“Or O- 4 OO OO OO: DO CO UI OO: OO OO 2 
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09/03/81 09:08:53 DTSS EXECUTIVE (INSERT SEGMENT) DTSS TRADE SECRET PAGE 46 CO 
I PHYSICAL 1/0 -- MACROS AND SUBROUTINES RELEASED 01DEC80 
#1025 EJECT C01DEC80) O 
+1026 . [01DEC80] 
#1027 ‘ CHLOC CO1DEC80] O 
+1028 - [01DEC80) 
#1029 « THIS SUBROUTINE IS CALLED WTITH IOMH AND CHANNEL IN THE FORMAT CO1DECB03 
+1030 x XIXXPP IN AU Z IT RETURNS THE LOC IN PSCHAN TABLE OF C01DEC80] O 
+1031 * THE ENTRY = 4*CHANNEL+IOMH*CHTLEN IN AU AND 1LOMH IN AL [O1DEC80] 
+1032 * CO1DEC80I 
001524 +1033 CHLOC NULL *OTIS CO1TDEC80) © 
001524 001544 7570 00 R. +1034 STAQ TABLOC SAVE AU & @ *OTIS CO1DEC8OI 
001525 000102 7330 00 .. +1035 LRS 12418436 GET IOMH TO QL *OTIS CO1DEC8O] 
001526 000003 3760 07 .. +1036 AN 3,DL MASK OFF *OTIS : CO1DEC80I eo 
001527 000002 1160 07 .. +1037 CMPQ SNIOMS + DL CHECK FOR OK CALLING FORMAT *OTIS CO1DEC80I 
001530 Q00000 6930 20 +1038 TRC SZOPF,* OOPS *OTIS CO1DEC80] 
001531 001544 7520 07 +1039 STCQ TABLOC,O7 SAVE IT IN BOTTOM «OTIS CO1DEC80) CO 
001532 000340 40290 07 ,. +1040 MPY CHTLEN-DL PSCHAN OFFSET *OTIS CO1DEC80I 
001533 OG0022 7360 00 +1041 QLS 18 MOVE TO UPPER *OTIS CO1DEC8O03 
001534 001544 2350 00 #1042 LDA TABLOC RETREIVE CHANNEL *OTIS CO1DEC8OI C 
001535 000077 3750 03 #1043 ANA =077 DU MASK OFF *0TIS CO1DEC80] 
001536 oc0002 7350 00 +1044 ALS 2 MUTIPLY BY 4 «OTIS CO1DEC80I 
001537 001544 7510 70 #1045 STCA TABLOC+70 SAVE IT IN TOP *OTIS C01DEC80I O 
001540 o00000 6350 02 #1046 EAA 0, au TABLE OFFSET TO AU *OTIS 7 £O01DEC80I 
0017541 001544 0750 O06 | +1047 ADA TABLOC ADD IN CHANNEL LOC AND IOM# *OTIS CO1DEC80I 
901542 901545 2369 00 +1048 Lb TABLOC#+1 RETRELVE @ *OTIS CO1DEC80I O 
001543 000000 7100 10 #1049 TRA 0,0 RETURN *OTIS £01DEC80] 
+1050 CO1DEC80] | 
001544 +1051 EVEN x*OTIS CO1DEC80) OC 
001544 #1052 BSS 2 TEMP STORAGE CO10EC80I 
+1053 [01DEC80] 
+1054 CO1DEC 80] O) 
+1055 1OMS CO1DEC80I 
+1056 CALLED WITH LOC IN PSCHAN TABLE IN P CO1DEC80I 
+1057 RETURNS IOMH#H IN AL ¢ 4*CHANNEL IN YR *OTIS CO1DEC80) O 
+1058 [01DEC80] 
001546 +1059 NULL *OTIS CO1DEC80) 
001546 OCCO00 6220 16 +1060 EAX YeOrP PUT LOC OF ENTRY IN YR *OTIS CO1DEC80] O 
001547 000000 2350 07 +1061 LDA O-DdL SET 1OMH = 0 *OTIS C01DEC80] 
0071550 000400 1020 93 +1062 CMP X YeCHTLENt+4*SFPCHN,DU SEE IF ENTRY IS FOR NEXT IOM *OTIS CO1DEC80I 
001551 090000 6040 10 #1063 TMI 0-0 YESSRETURN WITH IT *OTIS CO1DEC80) O 
001552 000340 1629 03 +1064 S BX Y/CHTLEN» DU STEP BASE TO NEXT SET OF CHANNELS *OTIS CO1DEC80I 
001553 000001 0750 07 +1065 ADA 1,DL STEP IOMH «OTIS CO1DEC80I 
001554 001550 7100 09 +1066 TRA x= RETRY *OTIS CO1DEC80I O 
+1067 C01DEC80) 
+1068 LOCHK CO1DEC80I | 
+1069 CHECKS XSIOM TABLE FOR A GOOD IOM CO1DEC8&803 C) 
+1070 CALLED WITH IOMA IN AL C01 DEC80) 
+1071 CO1DEC80I 
001555 +1072 NULL «OTIS CO1DEC80I O 
001555 000000 2360 05 +1073 LDQ XSIOM/AL GET HIS PORT ENTRY *OTIS [01DEC803 
001556 000000 6040 10 .. +1074 TMI 0-0 NEVER CONNECTED *OTIS CO1DEC80) 
001557 400000 3760 07 +1075 ANQ XSRFLAG*SDL CHECK RELEASE FLAG *OTIS CO1DEC80I CO 
001560 000000 7100 10 +1076 TRA 0-0 THE TNZ INDICATOR WILL INDICATE A BAD IOMA *OTIS C01DEC80I 
© 
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001561 
001562 
001563 
001564 
001565 
001566 


007567 
001570 
001571 
001572 
001573 
001574 
001575 
091576 
001577 
001600 
001601 
091602 


001603 
001604 
001605 
0071606 
001607 
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I 
1078 
1079 
1080 
1081 
1082 
1083 
1084 
1085 
1086 
1087 
1088 
1089 
1090 
1091 
1092 
1093 
1094 
1095 
001561 1096 
000000 4400 14 .. 1097 
000001 2270 14 .. 1098 
000000 2350 17 x. 1099 
004335 6040 00 R. 1100 
010000 2360 07 .. -1101 
901617 7560 90 8. 1102 
1103 
1404 
1105 
001567 1106 
001524 7000 00 R. -+1107 
O00000 6260 01 .. +1108 
001555 7000 00 R. +1109 
001575 6010 00 R. +1110 
77UT? 7200.16 Xe. 1144 
001610 6000 00 Rw 1112 
OCO000 2360.16 X. 1113 
001617 3560 00 &. 1114 
000000 2350 16 xX. 1115 
001567 6040 00 Rw 1116 
001617 2340 00 Rw 1117 
004337 6010 00 Rw 1118 
1119 
1120 
44:29 
001603 1122 
O00000 6210 14 .. 
000000 6220 16 x. 
000000 7000 00 x. 
000021 0540 00 x. 1123 
000000 7100 00 x. 1124 
1125 
1126 


DTSS EXECUTIVE CINSERT SEGMENT) 


LEZE 


ee, ae 


G 


TELE 


SIEZ1 


* + 


PHYSICAL I/0 -- MACROS AND SUBROUTINES 


EJECT 


THIS MACRO QUEUES FOR A CHANNEL. 


MACRO *"PUB',-PRIORITY 
INE "AH2?* 6 "AL'S 
INE *AH2*,"A' v2 
EAX Zr #e 

IFE 1ecel 

EAX Zee 

TSXO SLEZE 

ENDM SEEZE 
SUBROUTINE 

NULL 

SXLO QSRUNZT 

LDX S/DEV.,T 

LDA USPDA,S 

TMI POFF 

LDA BSIORCH,DL 
ST SLE 1 


DTSS TRADE SECRET 


SIEZE 


REGISTERS ARE DESTROYED 


USE PRIORITY IF ALREADY IN 2 

IF SECOND ARGUMENT IS NOT NULL, 
GET PRIORITY FOR ENQUEUEING 

AND SKIP OTHER ENTRY 

ASSUME DEFAULT PRIORITY 

CALL SUBROUTINE TO QUEUE 


ENTER VIA TSXO 

SAVE RESTART ADDRESS 

GET DEVICE NUMBER 

GET PRIMARY PUB 

FAKE POWER OFF IF NONE SUCH 

LOAD BIT THAT SAYS "CHANNEL RELEASED’ 
SAVE FOR CHANNELS BUSY CHECK 


CHECK EACH POSSIBLE CHANNEL 


NULL 
TSXO 
EAX 
TSXO 
TNZ 
LXLO 
TZE 
LDQ 
ANSQ 
LDA 
TMI 
SZN 
TNZ 


QUEUE TO LAST ALTERNATE 


ENQ 
EAX 
EAX 
TSXO 
AQS 
TRA 


PUB IS FREE NOW - 


CHLOC 
P,O-/AU 
IOCHK 
x+3 
QSBUSY+P$Q,P 
SIEZ3 
PSSTAT «+P 
SIEZT 
PSCHANsP 
SIEZ1 
SIEZT 
CBUSY 


Ts (PS$Q4P) 02 
Xe0-T 
YePSQeP 
QSENQ 
X$SSWPCT+17 
SEXIT 


GET LOC OF PSCHAN ENTRY 
SAVE IN P *OTIS 

CHECK FOR GOOD I0M # *OTIS 

BADs SKIP THIS CHANNEL *OTIS 

IS 1) FREE? 

YES~- GRAB IT 

LOAD CHANNEL STATUS BITS 

ACCUMULATE RELEASED CHANNEL BITS 

CHECK FOR CROSSBARRING 

YES~~ CHECK ALTERNATE CHANNEL 

HAVE ALL CHANNELS TO THIS DEVICE BEEN RELEASED?? 
YES» RETURN CHANNEL BUSY STATUS 


x*OTIS 


CHANNEL 


ENQUEUE WITH PROPER PRIORITY 

PUT IT THERE 

QUEUE~DESCRIPTOR VECTER 

GO TO ENQUEUE CODE 

INCREMENT TOTAL PUB QUEUE LENGTHS 
WAIT FOR A PUB TO BE FREE 


TAKE IT 
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0016171 


001612 
001613 
001614 


001615 
001616 
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000003 
(77777 


009000 
080000 
000000 


001420 
900000 


001610 
74690 14 
4440 16 

001612 
7000 00 
7550 16 
2350 14 

001615 
7000 O00 
7100 O5 


007617 


09:08:53 


Xe 


Ke 
Xe 


Re 


1127 
1128 
1129 
1130 
1131 


Ei 
TESS 
1134 


a eee 
1136 
PUS# 


DOTSS EXECUTIVE CINSERT SEGMENT) 


SIEZ3 


EXIT1 


SEG E 


PHYSICAL 1/0 


NULL 
STX 
SXL 
GTIM 
TSXO 
STA 
LDA 
RREG 
TSXO 
TRA 


BSS 


P,sPUBsAT 
TeQ$BUSY+P3Q,P 


XSGTIM 


X$1IOQTB-P 
QSRUN-T 


RREG 
O- AL 


1 


DTSS TRADE SECRET 


~- MACROS AND SUBROUTINES 


NOTE WHICH PUB WE HAVE 
NOTE WHO HAS THIS PUB 
TIME SINCE BOOTLOAD 
RETURN TIMER UNITS IN A 
TIME DEVICE BECAME ‘*BUSY' 
GET RESTART ADDRESS 
RESTORE I/0 REGISTERS 
CALL SUBROUTINE 

AND EXIT 


TEMP FOR SIEZE ROUTINE 
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16AUG74 


16AUG74 


CO4JUL77) 
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GO 1 “Os ao: Oe “Or Oc 0 oS ©. O © 


we ee i a ce i ca cg i ice Sa et fs ee er SS i en et sm ee a <i Ss ces, SS pms! Ferm” “a ler me "Papert stem es me Cer See a el a i es "me: eee a ames (SA a gm a ea “na, ee fom meets ee! Sm pm mi Pe eee tS mets oe? re) Se em mamma bem, ere SS = 


O O 
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PIO 


001420 


001621 
001622 
001623 
0071624 
007625 
001626 
001627 
0071630 
001631 


001632 
CUTG6S 5 
001634 
001635 
001636 
001637 


001640 
001641 
001642 
001643 
001644 
001645 


001646 
001647 
001650 
0016574 
001652 
001653 
001654 
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000000 


001623 
ae ae & ars 
000000 
900000 
J00000 
070000 
001632 
777777 
gc0000 


90000 
990000 
000000 
001677 
00C000 
000000 


900000 
061645 
001524 
O0C000 
001640 
001.661 


000000 
000000 
000000 
001663 
LOLLEL 
000004 
001663 


9007620 
4400 14 


74490 O18 
7210 16 
LAS 
60190 20 
7210 16 
S00 US 
6000 09 
4469 16 


#100 10. 


001632 
62190 16 
79090 00 
6220" 12 
6010 00 
6350 16 
6210 16 


09:08:53 


PHYSICAL I/0 


DTSS EXECUTIVE CINSERT SEGMENT) 


SUBROUTINE 


QSRUNAT 


CONSISTENCY CHECK 


Ts *t2 

Xe Q$BUSY+PS$Q,P 
XreoeerdDU 
SLOPF,* 
X*#PE$STATsP 
XsBSTORCH,DU 
+3 
PerSBUSY+P$Q,P 
0,0 

Ye (PS$QeP) 
XeP$QeP 

Q$DEQ 

Yr?OrY 

FREE? 

OP 

X20eP 


DTSS TRADE SECRET 


~~ MACROS AND SUBROUTINES 


FREE 


MACRO AND SUBROUTINE RELEASES A CHANNEL WHICH 
WAS SIEZED VIA THE SIEZE MACRO, 


REGISTERS WILL BE DESTROYED 


AND EXIT IS NOT GUARANTEED TO BE IMMEDIATE. 


MACRO MOVED TO INSERT FILE 


SAVE RETURN 


SAVE T FOR CHECK 

WHO HAS THIS PUB? 

is LT WS? 

NO - THEN WE SHOULDN'T FREE IT 

PICK UP PUB BITS 

RELEASED? 

SKIP IF NOT 

VESs 3.0. RELEASE 

AND RETURN 

IS THERE SOMEBODY WAITING FOR THIS ONE? 
LOAD QUEUE NAME 

EXECUTE NECESSARY CODE 

LOAD REGISTER WITH LIST ELEMENT ADDRESS 


SKIP: EE SO 
GET COPY OF PUB NUMBER 
TWICE 


LAST ALTERNATE CHANNEL 


PECHANSAU 
FREE2 
CHLOC 
X7O0-AU 
FREE 
XeFREX 

Yr, (P$QX) 
XePS$QeX 
QEDER 
Ys07Y 
FREES 
ZeTSLENSY 
Z/PUB+1-DU 
FREES 


1138 EJECT 

1139 * 

1140 * 

1141 * 

1142 * 

1143 * THIS 

1144 * 

1745 * ON EXIT», 

1146 i 

4147 * 

1148 * 

1149 * 

17150 * 

1151 FREE NULL 
ee 1152 SXLO 

1153 * 

1154 * 

1155 
Re F156 STX 
Xe 1157 LXL 
os 1158 CMPX 
Xo 1159 TNZ 
Xe 1160 LXL 
ie 1161 CANX 

. 1162 ELE 

Kw 1163 SAG 
es 1164 TRA 

1165 DEQ 
Rv EAX 
Xe TSXO 
ee E AX 
R. 1166 TNZ 
os 1167 EAA 
ee EGS EAX 

1169 * 

17 70 & FIND 

1171 * 
Xa 1172 FREE1 LDA 
R. 1173 TPL 
Re. ~+1174 TSXO 
oe 1175 E AX 
R. 1176 TRA 
Rs 1177 FREE2 STX 

1178 DEQ 
Xe E AX 
X. TSxO 
as E AX 
Re 1179 TZE 
ee 1180 LXL 
oe 1181 CMPX 
R » 1182 TNZ 

1183 ENQ 


Y*eFREQ~s1 


IS THIS THE LAST CHANNEL 


YES 
NO;7GET LOC OF NEXT ENTRY *O0TIS 
SAVE IN XR-xX 


AND CONTINUE SEARCH 

SAVE POINTER TO LAST CHANNEL 

ANYONE WAITING. ON A CHANNEL? 

LOAD QUEUE NAME 

EXECUTE NECESSARY CODE 

LOAD REGISTER WITH LIST ELEMENT ADDRESS 
NO ONE ELSE WAITS 

GET THE LENGTH OF THIS WAITER 

WAITING FOR SPECIFIC PUB? 
NO, SO CAN USE THIS 

YES» AND THIS ISN'T IT 


keke KLUDGE **x 
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C170CT76) 


C170CT764) 
C170CT76) 
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C18AUG76) 
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Cr © 
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001655 
001656 


001657 
001460 
001661 
001662 
001663 


001664 
001665 
001666 
001667 
001670 


001671 
001472 


9001673 
001674 
001675 
001676 
001677 
001700 
001701 


0071702 
001703 
001704 
007705 
0077C6 


001707 
001710 
O03 
001712 
OOVE4S 


001.714 
001715 
001716 
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000000 
001715 


000001 
O000000 
Q00000 
001645 
001714 


00171715 


O01 ts 
777777 
001707 
000003 


6210 12 
6220 00 
000002 

000001 
6230 00 
7900 00 
rege a8 ee 
7100 OO 
4420 OO 

001664 
6210 O00 
7000 Q0 


6220 12 


6909 OO 
2219 O00 
0016771 
6219 12 
6220 11 
000002 
gog0001 
6230 00 
7000 OO 
7100 00 
7220 00 
4420 16 
6900 O00 
7460 12 


Occo0n0 76 


777777 
000001 
000021 
001614 


000000 
000000 
000000 
000000 
0017614 


000001 
000000 
Q00000 


OOTLOr 
7000 QO 
1750 16 
0550 16 
4500 16 
7100 OO 

001714 

000002 

000001 
000000 
0000 00 
0000 00 


08:53 

Rs 

X. 

os 1184 

Re 1185 

Re 1186 
118? 

Re 

Ke 

Rs 1188 

R. 1189 
17190 

X. 

Re 1191 

Ris VA92 

KX VWIgS 

R. 1194 

as 1195 
1196 

Xe 

Xo 1197 

ee 1198 

Xe 1199 

Re 1200 
1201 
1202 
1203 
1204 

Xe 

Xe 1205 

X. 1206 

Xe 1207 

Ra 1208 
1209 


QSET 


QSET 


FREX 


FREES 
FREES 


QSET 
QSET 


FREE6 
PREET 


FREE3 


QSET 
QSET 


FREQ 


PHYSICAL 1/0 


EAX 
EAX 
SET 
SET 
E AX 
TSXO 
L DX 
TRA 
SXL 
DEQ 
EAX 
TSXO 
EAX 
TLE 
LOX 
ENQ 
EAX 
EAX 
SET 
SEL 
E AX 
TSXO 
TRA 
LXL 
SXL 
Pee 
STX 
MT Q 
TSXO 
LXL 
LCa 
ASQ 
TRA 


DTSS EXECUTIVE CINSERT SEGMENT) 


X20 Y 

YeFREQ 
2 

1 

Ze QSET 
QSENRQ 


Xereeer DU 


FREE2 


Ye/QSBUSY+FREQ 


YsFREQ 
Xv FREQ 
QBDEQ 
YeOrY 
FREE6 
Xe FREX 


Ye (P$Q7X)-1 


XeO0rY 
YrPBQ,X 
2 

1 
ZeQSET 
QSENQ 
FREES 


Ye/QEBUSY+FREQ 
Y/Q$SBUS Y+PS$Q,P 


PREES 
P,PUBsY 


Q3BMTGQ 


Te/QEBUSY+P3Q,P 


1.DL 


XSSWPCT+17 


EXIT1 


QUE IS FREE? 


GTIM 
TSXO 
SBA 
ASA 
STZ 
TRA 
QUEUE 
SET 
SET 
ZERO 
ARG 
ARG 


XS6TIM 


XS1OQTBsP 
XS1IODTBsP 
XSTOQTB«sP 


EXIT1 
FREQ, 1 
2 

1 
QSET.0 
0 

0 


DTSS TRADE SECRET 


“~~ MACROS AND SUBROUTINES 


PUT IT THERE 
QUEUE-~DESCRIPTOR VECTER 
ASSUME NO PRIORITY SPECIFIED 
SET IT TO SPECIFIED LEVEL 
PRIORITY 

GO TO ENQUEUE CODE 

RESTORE POINTER TO LAST QUEUE 
AND LOOK FOR SOMEONE WHO CAN 
SAVE OUR PROSPECT 

PULL OFF A PICKY ONE 

LOAD QUEUE NAME 

EXECUTE NECESSARY CODE 

LOAD REGISTER WITH LIST ELEMENT ADDRESS 
SKIP IF NO MORE 

POINT TO LAST QUEUE 

RE~QUEUE 

PUT IT THERE 
QUEUE-DESCRIPTOR VECTER 
ASSUME NO PRIORITY SPECIFIED 
SET IT T0 SPECIFIED LEVEL 
PRIORITY 

GO TO ENQUEUE CODE 


RESTORE OUR PROSPECT®S LIST ELEMENT 
SET NEW TASK IN BUSY FLAG 

NOTHING LEFT ON QUE 

SET PUB NUMBER FOR NEW TASK 

QUEUE OLD TASK FOR LATER RESTART 

GO QUEUE THE TASK 

RESTORE NEW TASK POINTER 

DECREMENT TOTAL PUB QUEUE LENGTHS 
LIKE. $9 

START NEW TASK 


TIME SINCE BOOTLOAD 

RETURN TIMER UNITS IN A 

GIVES REAL TIME FOR WHICH DEVICE QUEUED 
TOTAL REAL TIME DEVICE WAS *BUSY' TODAY 
CLEAN UP SO CSTAT WILL WORK 

START NEW TASK: 

TEMP QUEUE FOR PICKY PUBBERS 

ASSUME 2-LEVEL QUEUE 

WHICH CASE USE THE SPECIFICATION 
INITIALLY NOT BUSY 

LAST ELEMENT POINTER 

PRIORITY 1 INDEX 


PAGE 


51 


RELEASED 0Q1DEC80 
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16AUG74 
T6AUG74 
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C18AUG76) 
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L18AUG76] 
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CO1FE8773 
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001717 
001720 
001721 
001722 
001723 
001724 
001725 
001726 
001727 
001.730 
001731 
001732 
001733 
001.734 
001735 


001736 
001:737 
001740 
001741 
001742 
001743 


001.744 
001745 


001.746 
001747 
001750 
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if 


0017740 
9601524 
000000 
Q901555 
091726 
001740 
Q00002 
091.740 
O09000 
Q09000C 
000000 
019000 
000002 
C77L77 
091761 


000004 
OCCO000 
000000 
990003 
001-752 
900:000 


000000 
000000 


000001 
000000 
000021 


001717 
001717 


7400 O00 
70090 O00 
6260 01 
7009 00 
6000 O00 
2200 O00 
7100 10 
2200 00 
2210 01 
6009 10 
7210 16 
5070. -05 
6019 10 
Pete 16 
6090 O00 
001736 
e200» 0. 
7000 00 
2200 03 
4400 14 
6200 00 
4400 14 


0540 O00 


Xe 
Xe 


09:08:53 


1253 


7 + + + &£ + FF HH HE FF HK HF F HK 


HAN 


ENDIOC 


CHANO 


QSET 
QSET 


PHYSICAL I/0 


Bah Gu. 


MACRO TO SIEZE A SPECIFIC CHANNEL. 
ILLEGAL CHANNEL 

XRP CONTAINS PUB INDEX 

XRP CONTAINS PUB INDEX OF RELEASED CHANNEL 


CALL+1 
CALL +2 
CALL +3 


DTSS EXECUTIVE CINSERT SEGMENT) 


DTSS TRADE SECRET 


-~- MACROS AND SUBROUTINES 


RETURNS TO 


NOTE THAT A VALID LIST ELEMENT POINTER MUST BE STORED IN 
Q$BUSY+P$Q,P AND THE FREE MACRO INVOKED UNDER THE CONTROL 
OF THAT LIST ELEMENT IN ORDER TO RELEASE A CHANNEL SIEZED BY 
THIS MACRO. 


MAY DESTROY ANY REGISTER BUT XRT. 


MACRO MOVED TO INSERT FILE 


NULL 
bELOG 
CANA 
TNZ 
ARS 
MARK 
STXO 
TSXO 
EAX 
TSXO 
Tee 
LDXO 
TRA 


~ LDXO 


LDX 
ELE 
LXL 
C ANX 
TN2Z 
LXL 
TLE 
GETD 
LDA 
TSXO 
LDXO 
SXLO 
EAXO 
SXLO 
ENQ 
EAX 
EAX 
SET 
SET 
EAX 
TSxXO 
AOS 


3-DU 
0-0 
2 


CHANO 

CHLOC 
P»eO0/AU 
IOCHK 

x43 

CHANO 

200 

CHANO 
X*eP$CHANZAU 
0-0 
XePS$STATSP 
X*eBSIORCH,DU 
270 
Xe,Q$BUSY+PSQ,P 
CHANS 

PUBt+1 
PUBt+1,DU 
ASGET 

wea e2DU 
PUBLsT 
CHAN 
QSRUN,T 

Tr (PSQ>-P) -1 
Xe0-T 
YoPSQ,P 

2 

1 

Ze QSET 
QSENQ 
XSSWPCT+17 


CHECK FOR MULT OF 4 ON IOC 
CHANGE TO PUB NUMBER 


SAVE RETURN *x*OTIS 

GET TOM# OF THIS CHANNEL IN AL *OTIS 
SAVE CHANNEL LOC *OTIS 

CHECK FOR GOOD IOM *OTIS 

OK TO PROCEED *OTIS 

NOT OKsGET RETURN AND *OTIS 
RETURN AS CHANNEL RELEASED *OTIS 
RESTORE RETURN *OTIS 

ANYTHING HERE? 

REJECT IF NOT 

PICK UP PUB BITS 

ALREADY HELD? 

IF SO, RETURN APPROPRIATELY 

IN USE? 

NO,» GRAB IT 

wee LENGTH IS SIGNIFICANT *** 


RESTORE XRO 
SAVE FOR LATER 
RETURN AFTER QUEUING 


QUEUE WITH HIGH PRIORITY 

PUT IT THERE 

QUEUE-DESCRIPTOR VECTER 

ASSUME NO PRIORITY SPECIFIED 

SET IT TO SPECIFIED LEVEL 
PRIORITY 

GO TO ENQUEUE CODE 

INCREMENT TOTAL PUB QUEUE LENGTHS 
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001752 
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000000 
000003 
000003 
001.740 


000000 
001740 
CLECEL 
00000 1 


g0g000 
000000 
001.756 


7100 O09 
2260 14 
7200 14 
7400 O00 
001755 
7000 O00 
2200 00 
4460 16 
7100 10 
001761 
7000 QO 
(950. 16 
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1254 
1255 
1256 
1257 
1258 


1259 
1260 
1261 
1262 


1263 
1264 


DTSS EXECUTIVE CINSERT SEGMENT) 


CHAN 


CHAN2 


CHANS 


DTSS TRADE SECRET 


PHYSICAL I/0 -~ MACROS AND SUBROUTINES 

TRA SEXIT WAIT FOR THE COMING 
LDX P,PUB,T RESTORE PUB POINTER 
LXLO PUBL«T eee AND RETURN 

STXO CHANO SAVE RETURN 

REL RELEASE LIST 

TSXO ASREL 

LDXO CHANDO RESTORE RETURN (SIGH) 
SXL PeQ$BUSY+P$Q,P MAKE CHANNEL BUSY 

TRA 10 RETURN TRIUMPHANT 
GTIM 

TSXO XSGTIM RETURN TIMER UNITS IN A 
STA XS1OQTB/P SAVE TIME PUB SIEZED 
TRA CHAN2 
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CONVA 
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DTSS TRADE SECRET 
PHYSICAL I/0 -~ MACROS AND SUBROUTINES 


ESECT 


CONV 


THIS SUBROUTINE TAKES THE LOGICAL DA IN THE AREGISTER AND 
GENERATES THE PHYSICAL SEEK ADDRESS, DEVICE NUMBER, DEVICE 
TYPE, ETC. REGISTER X MUST BE PRESERVED. RETURNS TYPE IN Zo 
DEV CUNIT) NUMBER IN Ss» AND SEEK ADDRESS CIF ANY) INA. 


NULL ENTRY VIA TSXO 

CMPA O-DL POSITIVE? 

TPL CONVA YES, SO SKIP 

STA CONVT SAVE FOR AWHILE 

ARS 36-9 POSITION ALTERNATE ALLOC TYPE 

NEG MAKE POSITIVE 

CMPA DSATYMX,DL GREATER THAN MAXIMUM ALLOCATION TYPE? 
TRC $SZOPF,* YES, A BAD DA 

E AX rari ra ae SAVE 

LDA CONVT RESTORE DA 

ANA DAMSK ONLY. 

LXL Y/TSCONVSZ GET BRANCH ADDRESS 

TRA O+rY AND GO 

NULL 

ANA DAMSK MASK OFF IRRELEVANT BITS 

LXL Z/DSATYPE*SAU GET ALLOCATION TYPE 

LXL YeTSCONVeZ GET BRANCH ADDRESS FOR CONVERSION 
TRA OY BRANCH TO CONVERTOR ROUTINE 

OCT O00377777777 MASK FOR LOGICAL DA *OTIS 


NONTEXISTANT DEVICE 


NULL 
LDA ODL CLEAR DEVICE ADDRESS 
LOX Z7,0-/DU SET TYPE ZERO FOR CONVERSION ERROR 


NON“ALLOCATABLE DEVICES 
UNIVAC DRUM 


NULL 

NULL 

EAX S70/AU PHYSICAL DEVICE = LOGICAL DEVICE 
ANA -1,DL SEEK ADDRESS IS RECORD NUMBER 
TRA 0,0 RETURN TO CALLER 


2314 DISKS CFILE PREFERENCE) 


NULL . 
EAX Y-L2314 CATALOG TRACK LIMITS FOR IBM 2314 
TRA CONVF CONVERT FILE ADDRESSES 
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2314 DISCS (CATALOG PREFERENCE) 


NULL 
EAX Yeb2314 
TRA CONVC 


DSS167 DISK PACK 


POINTER TO IBM 2314 CATALOG ADR LIMITS 
CONVERT CATALOG ADDRESSES 
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LOGICAL DEVICE NUMBER IS PHYSICAL DEVICE NUMBER 


ISOLATE RECORD NUMBER 

DOUBLE TO GET PHYSICAL RECORD NUMBER 
CHECK FOR VALID RECORD NUMBER 

TOO BIG ~ INVALID ADDRESS 

RETURN TO CALLER 


LOGICAL DEVICE IS PHYSICAL DEVICE 
ISOLATE LOGICAL RECORD NUMBER 

SAVE LOGICAL RECORD ADDRESS 

LOAD LOGICAL RECORD SIZE IN WORDS 
DIVIDE BY 64 CSIZE OF A PHYSICAL BLOCK) 
COMPUTE PHYSICAL SEEK ADDRESS 

MOVE TO A 


NULL 

EAX $70-AU 

ANA =T,D0L 

ALS 1 

CMPA 20*203*10-DL 

TRC CONVO 

TRA 0-0 

2314 DISCS CENTIRE PACK) 
DSS191 DISCS CENTIRE PACK) 
MSU4517 DISCS CENTIRE PACK) 
NULL 

NULL 

NULL 

FE AX Se0/AU 

ANA ~1,0L 

STA CONVT 

Lda TSRECeZ 

QRL 6 

MPY CONVT 

LLS 6 

TRA 00 


DSS190 CATALOGS 


NULL 
EAX Y/LM190 
TRA CONVC 


DSS190 FILE TRACKS 


NULL 
E AX YeLM190 
TRA CONVE 


MSU4S1 CATALOG TRACKS 


NULL 
EAX Ye-LM451 
TRA CONVC 


EXIT 


DSS 190 
CONVERT 


CATALOG TRACK LIMITS 
CATALOG ADDRESSES 


DSS 190 
CONVERT 


CATALOG ADDRESS TRACKS 
FOR FILE ADDRESSES 


POINT TO MSU451 CATALOG TRACK LIMITS 
AND BRANCH TO CATALOG TRACKS ROUTINE 
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I PHYSICAL I/0 -= MACROS AND SUBROUTINES RELEASED O01DEC80 
O 1369 k MSU451 FILE TRACKS C170CT76) O 
1370 * C170CT76] 
O 002042 1371 CNV13 NULL Ci70cCT76] O 
002042 002110 6220 00 R. 1372 E AX Y>LM451 POINT TO MSU451 CATALOG TRACK LIMITS C170cCT76) 
002043 002044 7100 00 Re. 1373 TRA  — CONVE AND BRANCH TO FILE TRACKS ROUTINE £170CT76) 
1374 * 
O 1375 * © 
1376 * SUBROUTINE TO CONVERT LOGICAL ADDRESSES TO PHYSICAL ADDRESSES 
O 1377 * FOR DEVICES THAT HAVE THE CENTER TRACKS DEDICATED TO CATALOG CO 
1378 * STORAGE. THIS ROUTINE CONVERTS NORMAL FILE ADDRESSES. 
1379 * CCY) = POINTER TO APPROPRIATE LIMITS 
oe 1380 * CCA) = DEVICE ADDRESS O 
1381 * C(O) = ORIGINAL CALLER'S RETURN ADDRESS 
1382 x 
O 002044 1383 CONVE NULL O 
002644 9000000 6270 01... 1384 EAX S70-/AU PHYSICAL DEVICE IS LOGICAL DEVICE NUMBER 
0020465. 777777 3750 O7 «x 1385 ANA —1T,DdL ISOLATE RECORD NUMBER 
O 002046 002116 7550 GO R, 1386 STA CONVT SAVE LOGICAL RECORD ADDRESS C170CT76) ‘e 
002047 O0000G 2360 13 R. 1387 Lpa TSRECA2 LOAD LOGICAL RECORD SIZE IN WORDS C170CT76) 
002050 000006 7720 00 .. 1388 @RL 6 DIVIDE BY 64 (SIZE OF A PHYSICAL BLOCK) Ci70cT76] 
O 002051 002116 4020 OO R. 1389 MP Y CONVT COMPUTE PHYSICAL SEEK ADDRESS C170CT76) C) 
002052 000044 7370 00 .. 1390 LLS 36 MOVE TO A C170CT76) 
002053 000000 1150 12 .. 1391 CMPA CNLOW,SY IS IT UPPER OR LOWER HALF? 
O 002054 00902056 6020 00 R. 1392 TNC x+2 LOWER, MAPPING IS COMPLETE CO 
002055 900001 07509 12 .,.. 1393 ADA CNUPRZY UPPER» SKIP CATALOG TRACKS 
002056 o00000 7100 10 .. 1394 TRA 0,0 RETURN TO ORIGINAL CALLER 
1395 x 
0 1396 * O 
1397 * SUBROUTINE TO CONVERT LOGICAL TO PHYSICAL DEVICE ADDRESSES 
O 1398 * FOR DEVICES THAT HAVE THE CENTER TRACKS DEDICATED TO CATALOG O 
1399 * STORAGE. THIS ROUTINE CONVERTS CATALOG ADDRESSES. 
1400 * CCY) = POINTER INTO APPROPRIATE LIMITS TABLE 
O 1401 * CCA) = LOGICAL DEVICE ADDRESS OC 
4402 x C(O) = ORIGINAL CALLER'S RETURN ADDRESS 
1403 x 
O 02057 1404 CONVC NULL © 
902057 Oc0000 6270 01 .. 1405 EAX S70/AU HOLD ONTO LOGICAL DEVICE NUMBER 
002060 777.777 3750 07 .. 1406 ANA =—1/DL ISOLATE RECORD NUMBER 
O 002061 000044 7730 00 .. 1407 ERLE 36 MOVE TO @ FOR DIVISION Cj 
002062 000017 5060 13 R, 1408 DIV TSFILE-2Z CONVERT TO CYLINDER NUMBER/OFFSET 
002063 002116 7550 OO R. 1409 STA CONVT STORE OFFSET 
O 002064 000074 5060 O00 R. 14170 DIV TSCATSZ CONVERT TO PACK #/CYLINDER ON PACK eo 
092065 002117 7550 O00 R. 1411 STA CONVT+1 STORE PACK NUMBER 
002066 009017 4020 13 R. 1412 MPY TSFILE,2Z COMPUTE ADDRESS OF TOP OF CYLINDER 
O 002067 000044 7370 00 .. 1413 bis 36 MOVE BACK TO 'A* REGISTER CO 
002070 002116 0750 00 R. 1414 ADA CONVT ADD OFFSET TO GET LOGICAL ADDRESS : | 
002071 002116 7550 O00 R. 1415 STA CONVT SAVE LOGICAL RECORD ADDRESS C170cT76) 
O 002072 oa00000 2360 13 R. 1416 LDQ TSREC,Z LOAD LOGICAL RECORD SIZE IN WORDS C170CT76]) CQ 
002073 000006 7720 00 .. 1417 QRL 6 DIVIDE BY 64 (SIZE OF A PHYSICAL BLOCK) > C170CT76) 
002074 QO02116 4020 O00 PR. 1418 MPY CONVT COMPUTE PHYSICAL ADDRESS C170CT76] 
@ 002075 000044 7370 00 .. 1419 LLS 36 MOVE TO A | £170CT76) C) 
002076 002117 2360 OO R. 1420 LDQ CONVT+1 LOAD PACK NUMBER COFFSET FROM BASE) 
Oo O 
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PHYSICAL I/0 == MACROS AND SUBROUTINES 

ADA CNLOW,Y RECORD NUMBER NOW IN A 

CMPQ 8, DL CHECK FOR VALID PACK NUMBER 

TRC CONVO NO - BAD ADDRESS 

EAQ 64%*64,aL DEVICE NUMBER PLUS FUDGE FACTOR 
ADQ USPDA,sS ADD PROPER BASE DEVICE 

CMPQ DEVMAX,DU CHECK FOR LEGAL DEVICE *OTIS 
TRC SZOPF,* NO ~~ WE BLEW IT 

EAX $0/QU DEVICE NUMBER IN S$ 

TRA 0-0 RETURN TO ORIGINAL CALLER 


THE FOLLOWING VALUES ARE ACTUALLY COMPUTED IN TSTART. 


THE NUMBERS 


BELOW WILL RESULT IS THE DEFAULT VALUES OF TSRANGE ARE USED. 


EVEN 


VFD 
VFD 


VFO 
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VFD 
VFD 


BSS 
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36/40*19%40 
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CATALOG TRACK LIMITS FOR MSU451 


CATALOG TRACK LIMITS FOR DSS191,MSS400_ 


CATALOG TRACK LIMITS FOR DSS170 & DSS180 


TEMP STORAGE FOR SEEK ADDRESS MAPPING 
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I DEVICE ERROR LOGGING ROUTINES . RELEASED O1DEC80 
O . ‘So 
1445 TTLS DEVICE ERROR LOGGING ROUTINES 
1446 * 
O 1447 * O 
1448 x THESE MACROS ARE USED TO PRINT ERROR MESSAGES FOR DEVICES. 
1449 * 
O 1450 * DLOG TAKES ONE WORD OF TEXT CUSUALLY "ERROR" OR *FAIL') AND PREFIXES oO 
1451 * IT WITH THE DEVICE NAME, 
1452 * 
O 1453 * ELOG TAKES TWO WORDS OF TEXT. C) 
1454 * 
1455 DLOG MACRO CONE WORD OF TEXT) 
Ss 1456 STZ FLOG DON'T INHIBIT DEVICE OUTPUT O 
1457 _ TSxXO DLOG CALL SUBROUTINE 
1458 BCI 1,#1 TEXT TO LOG | 
1459 ENDM DLOG 
0 1460 a © 
1467 * 
O 1462 ELOG MACRO (TWO WORDS OF TEXT) C) 
1463 STZ FLOG DON'T INHIBIT DEVICE OUTPUT 
1464 TSXO ELOG CALL SUBROUTINE 
1465 BCI 20#1 TEXT TO LOG . 
O 1466 ENDM ELOG O 
1467 * 
O 1468 x SAME AS ABOVE BUT SUPRESS LOGGING TO CONSOLE O 
1469 * 
. 1470 DLOGF MACRO 
O 1471 STZ FLOG C22JUN76) C) 
1402 STC2 FLOG C22JUN76] 
1473 TSXO DLOG 
1474 BCI 1,#1 ' 
O 1475 ENDM DLOGF O 
1476 
1477 ELOGF MACRO 
O 1478 STZ FLOG C22JUN76] O 
1479 STC2 FLOG [22JUN76] 
1480 TSXO ELOG 
O 1481 BCI 20 #1 O 
1482 ENDM ELOGF 
1483 * 
O 1484 * O 
1485 a LOGGING SUBROUTINES 
O 1486 * O 
002120 1487 LOG NULL LOG WITH DEVICE NAME 
00e7120 Uan0001 6200 10 .. 1488 EAXO 1-0 RESTART ADDRESS 
O OU2T24: “777277 23560 1C.<% 1489 LDQ -1,0 GET WORD TO LOG se O 
Q027122 000000 2210 17 xX. 1490 LDX XeUSPTYPESS GET DEVICE TYPE C22JUN76] 
002123 000123 2350 11 R. 1491 LDA TSONAME +X NAME OF THIS DEVICE C22JUN76] 
O 002124 5/5/00 S130 03° «4 1492 CANA =0575700DU ROOM FOR NUMBER? . : C21APR77] C) 
002125 002141 6010 OO R, 1493 TNZ ELOGA NOs JOIN MAIN ROUTINE C21APR77]3 
002126 Q00000 2360 17 xX, 1494 LDQ USPDA.S GET DEVICE ADDRESS C21APR77) 
oO 002127 007700 3760 03 .. 1495 ANQ =0007700,DU EXTRACT DEVICE NUMBER C21APR77] oO 
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ELOGA 


ELOG1 


DEVICE ERROR LOGGING ROUTINES 


1S 
ALS 
LLS 
LDQ 
TRA 


NULL 
EAXQ 
LDA 
LDQ 


WEED 


NULL 
CMPX 
TZE 
STAG 
SXLO 
LDA 
ARL 
STA 
LDA 
LDA 
STCA 
LDA 
LXLO 
LZe 
Lda 
STCQ 
ArRL 
STCA 


ODD 
TSXO 
BCI 


ARG 
ARG 
ARG 
ARG 
RREG 
TSXO 
LXLO 
TRA 


200 
-2,0 


-1,0 


P,LOGPSB 
0,0 
ELOG4 
QBRUN,T 


DEVs,T 


USPDAsZAU 


TEMP, 20 
PUB,AT 


XEMBX+XSLPWX,AU 


+3 

070 
TEMP ,40 
Z 

TEMP 410 


LOG 


2elLOG FOULUP 


QWORD,T 
TEMP 

RSEEKsS 
DCWWD-,T 


RREG 
QSRUN-T 
0,0 
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SHIFT INTO A 

MOVE IN FIRST HALF OF SECOND DIGIT (000) 
AND MOVE IN LAST DIGIT 

RESTORE @ 

JOIN MAIN LOG ROUTINE 


LOG WITHOUT DEVICE CODE 
POINT TO RESTART ADDRESS 
GET FIRST WORD TO LOG 
SECOND WORD TO LOG 


OUT LOGS FOR LOGGING DEVICE 


JOINED HERE FROM DLOG 

SEE IF LOG DEVICE ON THIS PUB 

DON'T LOG IF SO 

SAVE DATA 

SAVE RETURN ADDRESS IN LIST ELEMENT 
kkk 


* LOG COMMAND TABLE ADDRESS IN WORD eL 
kk 


kkK* 

« DEVICE NUMBER IN BITS 6-11 

kkk 

kkk . 
PICK UP POINTER TO LAST COMMAND ISSUED 16AUG74 
SKIP IF POINTER NO LONGER VALID 16AUG74 
PICK UP THE IDCW 16AUG74 
AND SAVE THE COMMAND 16AUG74 


* REAL PUB NUMBER IN BITS 12-17 


a k* 


FORCE ELOG1T EVEN 
SIMULATE LOG MACRO 
INFO FOR LOG STORED HERE 


QUEUE WORD FROM 
COMPOSITE WORD 
COMPUTED SEEK ADDRESS OF ERROR 
LOG DCW RESIDUE 

RESTORE REGISTERS AFTER ROADBLOCK 
CALL SUBROUTINE 

GET RESTART ADDRESS 

RETURN TO CALLER 
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000000 
000000 
000075 
777777 
000000 
000000 


BG 2T6S 
6210 90 
£700 OD 
6219 10 
4410 14 
4400 14 
e227) 14 


2200 1? 
6010 20 


GOAN OS 
3010 17 
6900 00 
002219 
6419 17 
7100 O00 


902272 
7440 17 
Coad hy 
3350 13 
2750 03 
7550 17 
7100 QO 
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Looe 
1540 
1541 
1542 
133.435 
1544 
1545 
1546 
1547 
1548 
1549 
1550 
1551 
1552 
1595 
1554 
L552 
1556 
Loot 
1558 
129 
1560 
1561 
1562 
1365 
1564 
1565 
1566 
i567 
1568 
1369 
1570 
1904 
15.72 
ao ie ie 
1574 
1272 
1576 
1577 
1578 
1579 
1580 
1581 
1582 
1583 
1584 
16D 
1586 


DTSS EXECUTIVE CINSERT SEGMENT) 


WAIT 


SWAIR 


SWAIO 


SWAI1 


PHYSICAL 1/0 -~= AWAIT SPECIAL INTERRUPT 


TIS 
HEAD 


PHYSICAL I/0 --~ 


I 


DTSS TRADE SECRET PAGE 60 
RELEASED OQ1DEC80 


AWAIT SPECIAL INTERRUPT 
I FOR I/0 


THIS MACRO AWAITS A SPECIAL INTERRUPT ON THE PUB THAT THE CURRENT 


DEVICE IS ON. 
ARE DESTROYED ON EXIT. 


MACRO 
CRSM 
INE 
TSXO 
IFE 
TSXO 
CRSM 
ENOM 


SUBROUTINE TO 


NULL 
EAX 
TRA 
E AX 
SXL 
SXLO 
L DX 
IFG 
LDXQ 
TNZ 


SEE Ut A -SPECEAL 


L DX 
CANX 
T2246 
NULL 
ERSX 
TRA 


WE MUST 


NULL 
STX 
L DX 
LCA 
ORA 
STA 
TRA 


SAVE* OFF 


"HI", "RETURN! 


SWAIT 


‘#1*,"RETURN' 


SWAIR 
RESTORE 
SWAIT 


XeSPTMO 
z+? 

X70-0 
X#SPRET>,T 
QSRUN,T 
S/DEV,T 
DEBUG 20-2 
UBSPEC.S 
bZOPFs,* 


X/,BSIOSPC,DU 


XeUSSTATSS 
SWAI1 


XeUSBSTATSAS 
EXIT1 


WAIT 


TrUSSPEC,S 
LeUSPTYPE,S 
TSSWAIT+2Z 
-1,DU 
USTICKsS 
SEXIT 


REGISTERS ARE ASSUMED INVALID AT ENTRY» AND 


AWAIT SPECIAL 


POINT TO STANDARD TIMEOUT ROUTINE 

SKIP ENTRANCE FOR NON=STANDARD TIMEOUT RETURN 
POINT TO TIMEOUT RETURN 

SAVE RETURN 

SAVE RETURN 

GET UNIT NUMBER ON WHICH TO AWAIT SPECIAL 

IF WE ARE DEBUGGING 

SEE IF ANOTHER TASK IS WAITING FOR A SPEC 
DEVICE QUEUEING FAILURE 


HAS ALREADY ARRIVED 


GET BIT SAYING SPECIAL ARRIVED 
Lio Set “ONG 
NO - MUST WAIT 


TURN BIT OFF 


EXECUTE CURRENT TASK CRETURN) 


MAKE US THE WAITING TASK 
GET UNTT TEPe 

GET COUNT UNTIL TIMEOUT 
MASK UPPER HALF 

INTO TICKER 

AND GO AWAY 


Oo © GO 0 Oo & eo © 


Oy” dor” “Ge OP Oe A 3. SO 4 


C) 
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09/03/81 09:08:53 DTSS EXECUTIVE CINSERT SEGMENT) DTSS TRADE SECRET PAGE 61 
I PHYSICAL I/0 -- SUBROUTINES RELEASED O1DEC80 
1587 TTLS PHYSICAL 1/0 -- SUBROUTINES 
T5808 HEAD I I FOR I/0 
1589 * 

002220 1590 IFIOC CO9DEC79) 
1591 * C21APR77) 
1592 * 

1593 * 2314 PRE-SIEZE 

1594 * 

1595 DKPS1 NULL PRE“SIEZE SUBROUTINE FOR SEEKS 

1596 DPPS1 NULL 

1597 LDX XeUSSTAT*S GET DEVICE STATUS BITS 

1598 CANK XsBSITONSK-DU CHECK FOR DSS180 

1599 TNZ DPWX5 YES» SKIP PRE SEEK 

1600 S-LEZE PUB,1 SIEZE PUB AT HIGH PRIORITY 

1601 TRA DPS1R RETURN AFTER NORMAL SIEZE 

1602 REM NOTE THAT THIS SUBROUTINE MAY BE CALLED 
7603 ReM FROM OTHER COMMANDS WHICH HAVE HIGH 
1604 REM PRIORITY. 

1605 me 

1606 * TASK TO LINK FROM SEEK TO R/W 

1607 * 

1608 DK wT X NULL ENTER HERE WHEN SEEK HAS BEEN ISSUED 
1609 LXL ZeTSIONXT22Z GET POINTER TO R/W COMMAND 

1610 SKL Ze ChideT PUT IN SAVED COMMAND LOC 

1611 DKWT2 NULL REENTRY IF DISC NOT READY 

1612 FREE PUB RELEASE THE CHANNEL UNTIL SEEK COMPLETES 
1613 SWAIT RETURN WAIT FOR SPECIAL INTERRUPT 

1614 LOX S*eDEV,T RESTORE UNIT NUMBER AFTER ROADBLOCK 
1615 LDX ZeTSOKREQSZDU POINT TO REQUEST STATUS COMMAND FOR DISC 
1616 TRA DPWX& ISSUE COMMAND 

1617 * 

1618 * NEXT TASK TASK AFTER REQUEST STATUS 

1619 * AND AFTER 2314 RESTORE CRECALIBRATE) 

162C * 

1621 DKRQX NULL HERE WHEN SEEK COMPLETE 

1622 DPRSX NULL HERE AFTER RESTORE CRECALIBRATE) 

1623 LDX X*eUBSTATSS GET DEVICE STATUS BITS 

1624 C ANX XsBSBIONSK,DU CHECK FOR DSS180 

1625 TNZ MTBSX YES, DON'T RELEASE THE PUB 

1626 FREE PUB RELEASE THE CHANNEL SO SEEKS CAN SNEAK IN 
1627 L DX S/DEV,T RESTORE UNIT NUMBER TO S 

1628 TRA DPWX3 CONTINUE 

1629 TILs PHYSICAL 1/0 -- SUBROUTINES COITMAY793 
1630 * 

1634 * 

Thc * 2314/HSFC SUBROUTINES 

1633 * 

1634 * 

1635 * TASK TO LINK FROM SEEK TO R/W 

1636 * 

1637 DPWTX NULL 


1638 LXL ZeTSIONXT AZ POINT TO R/W COMMAND 


oO © © © 2s © 9: © ©- 3  ©O.0- © © © © © © 


2) 


Cm ee em ee ee 


PIO 09/03/81 O9308353 
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1639 
1640 
164) 
1642 
1643 
1644 
1645 
1646 
1647 
1648 
1649 
1650 
1657 
1652 
1653 
1654 
1655 
1656 
1657 
1658 
1659 
1660 
1661 
1662 
1663 
1664 
1665 
1666 
1667 
1668 
1669 
1670 
1671 
1672 
1673 
1674 


OO;  @ O. -O. 0 ©. 1 oO} OO oO es OD Ua Oe OO OY SS 


DTSS EXECUTIVE CINSE 


PHYSICAL 


SAL 
FREE 


* WAIT FOR 


DPWX 1 NULL 
SWAILT 
LOX 
LDX 
CANX 
TNZ 
LDX 
TRA 

DPRQX NULL 
FREE 
LDX 
LDX 
CANX 


kkk RRR KR KR aK RAR KKEFUDGE FOR 


TNZ 
LDA 
STA 
L DX 
CANX 
TNZ 
STX 
TRA 
DPWX2 NULL 
ERSX 
DPWX3 LXL 
DPWX4 STX 
TRA 
DPWX5 LXL 
TRA 


ENDIOC MARK 


RT SEGMENT) 


DTSS TRADE SECRET 


1/0 -- SUBROUTINES 
Z/CMDe-T SAVE FOR LATER USE 
PUB RELEASE THE CHANNEL 
SPECIAL INTERRUPT 


RETURN 
S*DEVeT 
XsBSIOSKC,DU 
XeUSSTAT?S 
DPWX2 
Z/TEDPRR,-DU 
DPWX4 


PUB 

S*#DEVe,T 
XsBSIOSKC,DU 
XeUSSTATSS 


DPWX2 
DPWX1+4+1,0L 
QSRUNAT 
X/,BSIOSPC,DU 
X,USSTAT*S 
SWAIO 
TAUSSPEC.AS 
SBEXIT 


XeUSSTATSS 
Lo CMOeT 
Z/CMD,T 

MAINA 
ZeTSIONXT £2 

DPWX4 


AWAIT SPECIAL INTERRUPT 

RESTORE UNIT NUMBER 

GET *SEEK~COMPLETE* BIT 

SEE TF ‘SEEK :1S: COMPLETE 

YES- CONTINUE WITH R/W 

SET UP FOR READ@REGISTER COMMAND 
AND ISSUE IT 


REENTRY AFTER SUCCESSFUL READ~REGISTER 


RELEASE THE CHANNEL AGAIN 


GET UNIT (PHYSICAL DEVICE) NUMBER 


GET SEEK-COMPLETE BIT AGAIN 

IS SEEK COMPLETE NOW? 

AS Dkk RO OOO Rk kkk 

YES READ NOW 

POINT TO RESTART ADDRESS 

SAVE IT 

GET BIT SAYING SPECIAL ARRIVED 
Is IT ON? 

YES -- TURN IT OFF AND CONTINUE 


WAIT FOR SPECIAL WITHOUT RESETING TIMERA kkk kee 


SEEK HAS COMPLETED 

TURN OFF BIT 

GET SAVED COMMAND POINTER 

SAVE AS CURRENT COMMAND POINTER 
ISSUE NEXT COMMAND 

GET NEXT COMMAND 


O O @& 
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RELEASED O1DEC80 


O 
O 
O 
6 
6 
fe 
a) 
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002220 
002221 
002222 
002223 


O02224 
002225 


002226 


002227 
002230 


002231 
002232 
002233 
002234 
N02235 


002236 
002237 
002240 


00224) 
002242 
002243 
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1675 
1676 
1677 
1678 
1679 
1680 
1681 
1682 
1683 
002220 1684 
000003 2350 13 .. 1685 
V000¢26 7550 00 «« 1686 
900004 2550 14 .. 168? 
0090000 7100 10 .. 1638 
1689 
1690 
1691 
1692 
002224 1693 
377777 2210 O03 «a 1694 
090090 3410 17 xX, 1695 
Q02226 1696 

002175 7000 00 R,. 
JU27¢r 7 1697 

OO1S20 7000 00° Rs 
002667 71700 00 8. 1698 
+1699 
+1700 
era 
+1702 
+1703 
OO 2254 41704 
000000 2210 17 X. +1705 
040000 3010 03 .. +1706 
002236 6000 00 R. +1707 
OUGC0S 7230 13 .~ 1768 
002241 7100 00 R. +1709 
1710 
1711 
1712 
1713 
002236 1714 
GO00C0 2210 17 xX. 713 
1HUOOG? SUID. OS qs 1716 
OCOO00: 6000 10" ue0 1717 
002241 +1718 
OVUO00S £250 15- os 1719 
O00002 7430 14 .. Theu 
000000 7100 10 ..W 1721 
1722 
1723 
1724 
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IBIT 


KML6 


KMD 


CKMDX 


PHYSICAL. IvV0. <= 


TTLS 


MISCELLANEOUS SUBROUTINES 


D190B 


NULL 
LDA 
ALS 
ORSA 
TRA 


DN30 - 


NULL 
L DX 
ANSX 
SWAIT 
TSXO 
RREG 
TSXO 
TRA 


SPECIAL LEVEL6G CHECKING 


SUBROUTINES 


PHYSICAL I/0 -- SUBROUTINES 


CAKA D191,4 
FORMATTING. 


READ PRE=CONNECT 


Xe7-1-BSIOSPC,DU 
XeUSSTATSS 


DTSS TRADE SECRET 


D190 ICF) SET TI BITS IN SEEK WHEN 


CALLED AS IBIOPCS 
GET TI BITS TO USE 
POSITION FOR SEEK 
PATCH INTO SEEK ADDR. 


(WAIT FOR SPECIAL) 


MASK FOR SPECIAL PENDING BIT 
IGNORE PENDING SPECIALS FOE D-30 
WAIT FOR SPECIAL INTERRUPT 


RESTORE REGISTERS 
CALL SUBROUTINE 
RETURN TO MAIN ROUTINE 


CIF ASCII THEN USE BOOTLOAD...IT IS POINTED TO BY 
THE TEST WRITE COMMAND WHICH IS THE NEXT LINK) 


NULL 
L DX 
CANX 
La = 
LXL 
TRA 


MODE CHECKING 
(7 TRACK TAPE, 


NULL 
L DX 
CANX 
TZE 
NULL 
LXL 
STX 
TRA 


XsUSSTATSS 
Xe/BSIOMDA,DU 


ZeTS$IOPCS eZ 


XeUSSTATSS 
XeBSTOMDD-DU 


GET UNIT STATUS 
FOR DECIMAL MODE 
RETURN IF NOT IN DECIMAL MODE 


Le TSIOPCS 2,2 


SPECIAL MODE CHECK 


POINT TO ALTERNATE COMMAND 
AND THEN TRANSFER AGAIN 


SUBROUTINE FOR DUAL MODE DEVICES. 
PRT300,- PRT400) 


POINT TO ALTERNATE COMMAND 
SAVE IN COMMAND POINTER 
AND RETURN 


SUBROUTINE FOR MODE CHECKING ON 9 TRACK TAPES 
THERE ARE FOUR MODES THAT A 9 TRACK TAPE CAN BE IN. 
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RELEASED Q1DEC80 


COIMAY794 


COVMAY794 © 


~~ COMAY79J 


COIMAY79) 
COIMAY79) 
COMAY79] 
COMMAY79I 
COIMAY79) 
COIMAY79) 
COIMAY79) 
COIMAY79) 


CO1DEC8OI 
COIDEC8OI 
CO1DEC803 
CO1DEC803 
COWWECBOI 
CO1DEC80] 
CO1DECcC80) 
CO1DEC80) 
CO1DEC803 
COIDEC80) 
COIDEC80] 


CO4JUL77) 


CO4JUL77) 
CO4JUL77) 


C01DEC80) 


CO4JUL77] 
CO4JUL77) 


Oo G: <O- & 


O 


Oe2 Oe s@e "O: 1 «Gy “Gr 4S > a) 4 @ 2. © 2 
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002244 
002245 
002246 


002247 
002250 
002251 
002252 
002253 
002254 
002255 
VO2256 
002257 


002260 


00¢e261 
002262 
002263 
002264 


002265 
002266 
002267 
ON2270 


002271 
002272 
002273 
002274 
002275 
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002261 
002247 
002265 


002260 
000.000 
140009 
040000 
OC0004 
000000 
G02c6U 
O0C002 
000000 


000000 


OO0366 
DOO726 
006375 
900735 


000404 
000744 
006413 
000753 


OCQ007 
000077 
000074 
OGCOQ04 
O02236 


6210 OO 
7100 00 
6210 00 


002247 
7470 O00 
cao): 27 
3760 03 
2060 G3 
1160 0? 
6030 20 
e253) 66 
7430 14 
7100 10 


C0000 


CO0000 
000600 
000000 
GCOO0OCO 


000000 
COCSCa 
CO90000 
CO0000 


09308255 


1725 
1726 
ines 
1728 
1729 
1730 
1731 
VOS2 
IicaS 
1734 
i335 
1736 
Vise 
1738 
1739 
1740 
1741 
174e 
1743 
1744 
1745 
1746 
1747 
1748 
1749 
EOoG 
aes 
ioe 
1753 
1754 
1733 
1756 
1757 
1758 
1759 
1760 
176% 
1762 
TOS 
1764 
1765 
1766 
1767 
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DTSS TRADE SECRET 


PHYSICAL I/0 -- SUBROUTINES 
THEY ARES 
1) BINARY MODE 
2) ASCII (TAPE9) MODE 
3) BCD MODE (THIS IS WORTHLESS BUT KEPT FOR COMPATABILITY) 
4) ASCII <--> EBCDIC MODE 
EAX Xv ROTA POINT TO READ MODE TABLE 
TRA CKMY 
EAX XsW9TAB POINT TO WRITE MODE TABLE 
NULL 
STX Xr CK MOT SAVE POINTER TO TABLE 
LD USSTAT?S LOAD DEVICE STATUS BITS 
ANQ BSIOMDD+BSIOMDA,-DU MASK TO MODE BITS 
DIV BSIOMDA,DU MOVE THE TWO BITS TO @L 
CMPQ 4/DL CONSISTANCY CHECK 
TRC SZOPFs.* SOMEONE CHANGED DEFINITIONS OF THE BITS 
LDX ZeCK MOT, * QL LOAD ADDRESS OF CORRECT TABLE ENTRY 
STX ZeCMDoT SAVE AS COMMAND TABLE POINTER 
TRA 0-0 AND RETURN 
ZERO eee 2 J POINTER TO READ OR WRITE TABLE 
ZERO TSMTRD READ BINARY 
ZERG TEMTRI READ ASCil 
ZERO TOMTRDA READ 6cD 
ZERO TSMTROE READ EBCDIC -> ASCII 
ZERO TSMTWT WRITE BINARY 
ZERO TSMTW9 WRITE ASCII 
ZERO TSMEWTA WRITE BCD 
ZERO TEMTWOE WRITE ASCII ~-> EBCDIC 


MAG TAPE =~ WRITE SINGLE CHARACTER 
PRE-~CONNECT SUBROUTINE (DETERMINE CHARACTER) 


NULL 
LDA 
ANA 
ALS 
STA 
TRA 


MODE »T GET USER COMMAND 

=077-/DU ISOLATE SINGLE CHARACTER 
12 LEFT JUSTIFY 

SEKADsT SAVE FOR LATER PICKUP 


CKMD CHECK MODE OF UNIT 


RELEASED 0O1DEC 80 


CO4JUL77] 
CO4JUL77] 
CO4JUL77) 
CO4JUL77) 
CO4JUL77) 
CO4JUL77) 
CO4JUL773 
CO4JUL77] 
CO4JUL77) 
CO4JUL77) 
CO4JUL77) 
CO4JUL77) 
CO4JUL77) 
CO4JUL77) 
CO4JUL77) 
CO4JUL77I 
CO4JUL77) 
CO4JUL77 4) 
CLO4JUL77) 
CO4JUL77) 
CO4JUL77) 
CO4JUL77) 
CO4JUL77) 
CO4JUL77]) 
CO4JUL773 
CO4JUL77 3 
CO4JUL77) 
CO4JUL77) 
CO4JUL77]) 
CO4JUL77) 
CO4JUL77) 
CO4JuUL77) 
CO4JUL77) 


C21APR77] 


CG OOS Oe SG So Oo COS OO G Oe SES GC SG 


O 

O PIO 

O 

© 

O 002276 
002277 

O 002300 

© 

O 002301 
902302 

O 002303 
002304 

© 

O 002305 
002306 

O 002307 

© 

© 

O 

o 

© 

O 

O 

O 

‘3 
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637070 


000000 
004323 


OC2276 
1009000 


900000 
004323 


O02276 
140000 
002303 


002276 
D022 ro 
2210 03 
DOAery 
3419 17 
7100 900 


002301 
902301 
TCE O00 
eds On 
02303 
2410 17 
£7086 00 


002305 
7170 OO 
2210 03 
7109 Q0 
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1768 
1769 
L770 
1771 
1772 
1773 
1774 
eae 
1776 
i er aes 
1778 
1779 
1760 
1781 
1782 
1783 
1784 
1785 
1736 
178? 
1788 
1789 
1790 
reo 
1792 
1793 
1794 
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* 


MTSB1 
MTSB2 
* 
a 
k 


P4S61 
MTSD1 


MTSD2 


MTSE1 


PHYSICAL I/0 -- SUBROUTI 


TTLS PHYSICAL I/0 -- 


SET BINARY MODE (CTAPE/PUNCH-READER) 


EVEN 

NULL 

LOX 

NULL 

ANSX XeUSSTAT SS 
TRA FAKEQ 

SET DECIMAL (CMIXED) MODE 
NULL 

NULL 

XED MTSB1 

L DX XeBSIOMDD,DU 
NULL 

ORSX XeUSSTATSS 
TRA FAKEO 


NES 


SUBROUTINES 


FOLLOWING 2 


XKe7~1-BSIOMDD-BSIOMDA,DU GET 
JOINED HERE 


DTSS TRADE SECRET 


INSTRUCTIONS XED'D 


MASK FOR BITS 
BY SET NORMAL RECOVERY DRIVE 


TURN OFF DECIMAL MODE 
FAKE NORMAL RETURN 


BCD MODE FOR PRT400 


RESET MISCELLANEOUS BITS 


GET BIT 


JOINED HERE 


BY SUPRESS ERROR RECOV DRIVE 


SET DECIMAL MODE 
NORMAL RETURN 


SET ASCII <--> EBCDIC MODE FOR 9 TRACK TAPE 


NULL 

XED MTSB1 

L DX X/BSIOMDD+BS1I0OMD 
TRA MTSDe2 


RESET EXISTING MODE 


A,DU 


LOAD BITS FOR ASCII/EBCDIC MODE 
AND EXIT 
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COTMAY79) 


CO4JUL77) 
CO4JUL77) 
CO4JUL77) 
CO4JuUL779 
CO4JUL77) 
CO4JUL77) 


O O QO OO ® 
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002310 
002311 


002312 
C025 1:5 


002314 
002315 
002316 


00231? 


092320 
002321 


002322 


002323 


002324 
002325 
002326 
002327 


002330 
002331 
002332 


002333 
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000002 
002303 


777775 
002277 


002276 
040000 
002303 


Uu2Zt(sS 


001520 
994323 


904323 


002310 
2210 03 
77100 00 


O0231e 
ects “0S 
(100 00 

002314 

902314 
C170. U0 
2210-03 
7100 QO 


OO 2377 
Q002317 
7009 O00 
002329 
7900 O00 
7790 00 


N0232e2 
7100 O00 


000000011007 


010000 
002326 
000000 
004325 


002324 
000000 
002335 


002324 


002324 
2230. 05 
FT#O: O00 
i ie Oe ag 
6000 O00 


002330 
7170 OO 
2350 03 
7100 QO 


002333 
7170 QO 
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xe 


Re 


Re 


Re 


TNR1 


TRV1 


1810 P4S91 
1811 MTSA1 


1831 S69CK 


DTSS EXECUTIVE CINSERT SEGMENT) 


DTSS TRADE SECRET 
PHYSICAL I/0 -- SUBROUTINES 
EJECT 


SUPRESS ERROR RECOVERY 
(FOR ALL DEVICES) 


NULL 
LDX X/BSIONRVs-DU GET BIT 
TRA MTSD2 a ee 


RESTORE NORMAL ERROR RECOVERY 
(FOR ALL DEVICES) 


NULL 

LDX Xe-1-BSIONRV-DU GET MASK 

TRA MTSB2 UNSET BIT 

NULL ASCII MODE FOR PRT400 
NULL SET ASCII MODE 

XED MTSB81 UNSET SOME Biss 

LDA X/BSIOMDA,DU GET ASCII MODE BIT 
TRA MTSD2 SET IT 


AWAIT SPECIAL INTERRUPT 
CTAPEs PUNCH, READER) 


NULL 

SWAIT WAIT FOR SPECIAL 
TSXO SWAIT 

RREG RESTORE REGISTERS 
TSXO RREG CALL SUBROUTINE 
TRA FAKEQ FAKE NORMAL RETURN 


AWAIT READY ON LEVEL 6 CCAN'T GET STATUS) 


NULL CAN'T DO ANYTHING 
TRA FAKEO MAKE IT GOOD 


SET MODE ON 301 PRINTER (6-BITs 9-BIT) 


EVEN 

LDX X,B8$10301-,DU GET BIT THAT SAYS 301 
XED «+4 CONTINUE 

C ANX XeUSSTATZSS MAKE SURE THIS IS ONE 
TZE RJCT REJECT SETMODE IF NOT 
NULL 

XED S69CK MAKE SURE WE CAN 

LDA 0, DU GET DEVICE NUMBER FOR 6-BIT 
TRA PRS92 SKIP 

NULL 

XED S69CK MAKE SURE WE CAN 
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002334 
002335 
002336 
002337 
002340 


002341 
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002343 
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000100 
000000 
002337 
000000 
004323 


002324 
O0C000 


000000 
007.700 
O00C00 
000000 
000300 
004326 


2a20 (05 
6a10 77 
7410 00 
7510 20 
7100 O00 


002341 
7170 OO 
7100 10 


002343 
2350 17 
S190 OS 
6000 10 
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PRS92 


PRPS 1 


PHYSICAL I/0 ~~ SUBROUTINES 


LDA 301700,DU 


E AX X/USPDA6S POINT TO DEVICE ADDRESS 
STX Xp e+1 

STCA seaeeu CHANGE PDA 

TRA FAKEO EXIT 


CHECK FOR LOAD IMAGE COMMAND ALLOWED 


NULL 
XED S69CK CHECK IT 
TRA 0-0 IF WE'RE BACKs WE CAN 


CHECK PRINTER BUTTONS BEFORE WRITE 


NULL 

LDA - USSTAT.S GET UNIT STATUS 

ANA =0007700,DU ISOLATE BUTTON STATUS 
TLE 0-0 NORMAL 

ERSA USSTAT.S TURN OFF STATUS 

ORA S*BSIORET,DL RECOVERABLE ERROR 

TRA FAKE 1 RETURN TO USER 


DTSS TRADE SECRET 


GET DEVICE NUMBER FOR 9-BIT 
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MTROX 


PHYSICAL I/0 -- 


TTLS 


FIX DCW 


NULL 
LDA 
ANG 
CMPQ 
TNZ 
LDQ 
ERA 
$Ba 
STQ 
TRA 
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SUBROUTINES 


PHYSICAL I/0 ~~ SUBROUTINES 


RESIDUE FOR 


DCWWD-T 
=0700000,DL 
=0100090,DL 
FIN] 
DCWWD-T 
=0100000,DL 


“1,0L 


DCWWD.T 
FINI 


TAPES 


GET LAST DCW IMAGE 

ISOLATE CHARACTER DOUNT 

DID WE GET EXACTLY ONE EXTRA? 

NOs LET USER WORRY 

RELOAD DCW IMAGE 

YES» IT*S GARBAGE 

DECREMENT ADDRESS» INCREMENT RESIDUE 
AND REPLACE IT 
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I PHYSICAL I/0 -- 
1879 TTLS PHYSICAL I/0 
1880 * 
OC 1881 * SPLIT DEVICE 
1882 * 
002362 1883 IFIOC 
1884 * 
O 1885 D2PSS NULL 
1886 STX S/D2DEV 
O 1887 LDX X/URET ST 
1888 SXL XeUST 
1889 LDQ DAC,T 
O 1890 ANQ -~1,D0L 
1891 DIV ROTAT 
. 1892 STAQ QUOT 
© 1893 LDA USPDAsS 
1894 TMI POFF 
1895 CANQ 1,0L 
= 1896 FZE x+2 
O 1897 ALR 1% 
1898 STA TEMP 
O 1899 QRS 1 
1900 MPY ROTAT 
1901 ADQ QUOT 
C) 1902 STQ DACsT 
1903 L DX X/TEMP 
190 STX XeDAC eT 
oO 1905 LD&G QUOT +1 
1906 ADQ 1/DL 
1907 QRS 1 
C) 1908 MPY ROTAT 
1909 §TQ D2STA 
1910 LXL XeTEMP 
‘e) 1911 STX X/D2STA 
1912 LDQ QUOT 
1913 S$ BQ ROTAT 
O 1914 EXEL S#DSATYPESS 
1915 MPY TSRECe*S 
1916 STA NWRDS 
O 19177 L XL XeTSLENZT 
1918 STZ QUOT 
1919 STX X ,QUOT 
O 1920 EAX Xe~DCwerX 
1921 TZE BZOPF,* 
1922 TMI BLOPF,* 
O 1923 SXL X ,QUOT +1 
1924 LDQ ROTA 
1925 CMPQ 4096,DL 
O 1926 a oe D2PS1 
1927 EAX Y/OCWeT 
1928 STZ TEMP 
O 1929 D2PS3 LDA O-Y 
1930 ANA 4095-0L 
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SUBROUTINES 


PRE-SIEZE ROUTINE 


SAVE LOG DEV NO FOR STATUS 
GET USER'S RETURN 

SAVE IT 

GET LOGICAL RECNO 

ONLY 


REMAINDER IS OFFSET FROM ROTATION BOUND 


SAVE 

GET DUAL DEVICES 

WASTED ERRORT 

IS THIS FOR SECOND DEVICE 

SKIP IF NOT 

NOTE THE FACT 

SAVE ORDERED DEVICE NOS ; 
SECTORS/2 = SECTOR IN FIRST DEVICE 
CONVERT TO RECORDS 

ADD IN OFFSET 

SAVE AS PARTIAL DAC 

COMPLETE DAC 


RESTORE SECTOR NUMBER 

ROUND UP TO NEXT SECTOR 
SECTORS/2 = SECTOR IN 2ND DEVICE 
CONVERT TO SEKAD 

SAVE PARTIAL DAC 

COMPLETE THE DAC 


GET RECORDS OFFSET 

CCQ) = -RECORDS LEFT TO WRITE HERE 
GET ALLOCATION TYPE 
CONVERT TO WORDS 

SAVE 

GET LENGTH OF PIO LIST EL 
CLEAR SONE SPACE 

SAVE FOR LATER 

CONVERTO TO NUMBER OF DCWS 
NONE? 

LESS THAN NONE??? 

SAVE FOR LATER 

GET ROTATION SIZE IN WORDS 
MIGHT WE HAVE TO EXPAND? 


NOs SINCE A ROTATION WON'T FIT IN DCW 


POINT TO DCWS 
CLEAR SONE SPACE 
GET A DCW 

JUST WORD COUNT 
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PHYSTCAL 1/0) += 


TNZ 
LDA 
ASA 
SBX 
FZ 
ADX 
TRA 
LDQ 
DIV 
QRL 
EAA 
CMPA 
TLE 
TMI 
STX 
E AX 
EXPAND 
LDA 
LDA 
GET 
L DX 
STX 
EAX 
STZ 
STX 
E AX 
EAX 
LDA 
ALS 
EAXO 
RPDX 
LDA 
STA 
STX 
ST2 
STZ 
EAX 
STX 


x +2 
4096,D0L 
TEMP 
Xe1/DU 
D2PS2 
Ye1,DU 
D2P$3 


TEMP 


ROTA 

1 

14DCWe QL 
QUOT 

b2PS1 

D2PS1 

T/TEMP 
XeTEMP-TSLEN 
AUs,xX 

T,/TEMP 


QUOT +1 


AL/NBUG 
Y/TSLINK,T 
Y/UST 
Y/DCweY 
TALI 
Y7,TAL 
Z0-T 
S$70-T 
QUOT+1 

10 


MSABIT+M$BRBI1T-AL 
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Ory 
0-2 
T/QUOT 
NEWT 
TAL2 
X*TArct 
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SUBROUTINES 


SKIP IF NOT ZERO 

WHICH WOULD MEAN 4096 

ADD TO TOTAL WORDS 

COUNT DOWN 

WE'RE DONE 

POINT TO NEXT DCW 

LOOP 

GET TOTAL WORDS 

CONVERT TO DCWS 

WE WILL USE TWO LIST ELS 
ROUND UP FOR IONTPS 

COMPARE WITH WHAT WE HAVE 
EQUAL IS OK 

LESS IS GREAT 

WE NEED MORE 

POINT TO FAKE ELEMENT 
EXPAND THE ONE LINKED TO IT 
GET NEW LIST POINTER 

GET NUMBER OF DCWS 

GET A BLOCK TO SAVE THEM 
POINT TO THE PIO ELEMENT 
SAVE USER'S XT 

POINT TO WHERE DCWS GO 
CLEAR TALLY TO IT 

AND CREATE NEW ONE 

POINT TO WHERE TO SAVE DCWS 
AND WHERE TO PICK THEM UP LATER 
GET NUMBER OF DCWS 

JUSTIFY COUNT FOR REPEAT 
SET COUNT 


SAVE POINTER TO LIST EL 

WE HAVEN'T GOTTEN ANOTHER YET 
SQ WE CAN'T POINT TO IT 

BUT WE CAN POINT TO THE FIRST 
THUSLY 


LOOP TO CREATE 2 DCW LISTS 


LDA 
ANA 
TN2 
LDA 
ASA 
TZE 
TMI 
LDQ 
STQ 
SSA 
TZE 


OS 


4095,9L 
w+? 
4096/DL 
NWRDS 
FIT 

FIT 
NWRDS 
TEMP 
NWRDS 
Dv20 


GET NEXT DCW 

GET JUST THE COUNT 

IF NON-ZEROs COUNT IS RIGHT 

FULL COUNT OF 4096 IF ZERO 

ADD INTO WORDS LEFT TO GO IN THIS CHUNK 
JUST FIT 

FIT WITH LEFTOVER WORDS 

GET WORDS LEFT OVER 

SAVE THEM 

GENERATE AMOUNT LEFT ON THIS DEVICE 
NOTHING HERE 
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i PHYSICAL I/0 ~- SUBROUTINES RELEASED O01DEC80 

1983 LCA 4096-/DL GET MASK FOR EVERYTHING BUT THE COUNT 
1984 ANA O-S GENERATE IT 
1985 CANA ~1,0DL IS THIS AN I0TD? 22AUG74 
1986 TNZ *+2 NOPE 22AUG74 
1987 ORA MSIOTP,DL MAY NOT BE THE LAST 22AUG74 
1988 ADA NWRDS GET PROPPER COUNT 
1989 STA TALP,* SAVE IT 
1990 LCA 4096,D0L SET THE BIG DCW 22AUG74 
1997 ANA 0-5 BUT NOT ITS COUNT 22AUG74 
1992 ADA TEMP MAKE COUNT WHAT WOULDN'T FIT 22AUG74 
1993 ALR 18 SWAP HALVES 22AUG74 
1994 ADA NWRDS UPDATE ADDRESS BY WHAT WE WROTE 22AUG74 
1995 ALR 18 RESTORE SWAPPED HALVES 22AUG74 
1996 STA O*S SAVE FUDGED DCW 22AUG74 
1997 * 
1998 * OLD DEVICE IS FULL, GET LIST ELEMENT FOR NEW OPERATION 
1999 * 
2000 DV20 NULL 
2001 L DX T/NEWT DO WE HAVE A SECOND DEVICE? 
2002 TNZ DV21 YES 
2003 L DX XeUST GET USER'S LIST ELEMENT 
2004 TSXO ESPROTO DUPLICATE IT 
2005 LDA D2STA GET NEW ISDAC 
2006 STA DACsT SAVE IT 
2007 EAX XeDCWeT POINT TO DCW SPACE 
2008 STX XeTALe2 SAVE IT 
2009 LDA DV210-/DL GET ADDRESS OF ROUTINE TO START I/0 
2010 MTQA QUEUE IT 
2011 Shs T,/NEWT SAVE NEW REGISTER 
2G 12 * 
2075 * SWITCH DEVICES 
2014 ke 
2015 DV21 LCA ROTA RESET AMOUNT TO WRITE 22AUG74 
2016 STA NWRDS BEFORE ROTATION 22AUG74 
2017 LDA 1/DU SWITCH POINTERS 22AUG74 
2018 ERSA TALP 22AUG74 
2019 TRA DCWL LOOP 22AUG74 
2020 * 
2021 * STEP TO NEXT DCW 
eC2e * 
202s Dv22 LDA Ors GET CURRENT. DCW 
2024 ADX Svl/DU STEP REGISTER § 
2025 ANA 3*40964DL GET THE DCW TYPE 
2026 TN2 DCWL LOOP IF NOT IOTD 
2027 L DX T/QUOT RELEASE DCW BLOCK 22AUG74 
2028 REL, 22AUG74 
2029 EAX XeTAL1 POINT TO TALLY 
2030 L DX T/UST GET USER'S T REGISTER 
2031 TSXO DCWCK CHECK FOR TRAILING IONTP*S OR ILOTP'S 
2032 STZ D2STA CLEAR STATUS OF SECOND QE ERAT ON: ee IN CASE 
2033 TSXO 10 DO THE 1/0 
2034 STZ TAL1 CLEAR TALLY POINTER FOR FIRST LIST ELEMENT 
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I PHYSICAL 1/0 -- SUBROUTINES RELEASED 01DEC80 
O 2035 , TRA DV25 CONTINUE 
2036 * 
oO 2037 x LAST DCW FITS INTO THE CURRENT DEVICE 
2038 * 
2039 FIT LDA 0-5 GET IT 
e 2040 TALP STA eee SAVE IT 
2041 TRA DV22 CONTINUE 
2042 A 
O 2043 x INITIATE I/0 ON SECOND DEVICE IF NECESSARY 
2044 k 
2045 DV210 EAX X-TAL2 POINT TO TALLY WORD 
O 2046 TSXO DCWCK CHECK THE DCW LIST 
2047 — TSXxO 10 DO THE I0 
2048 STZ TAL 2 CLEAR TALLY WORD 
O 2049 LDA QUEWD,T GET THE QUEWORD FROM THE OPERATION 
2050 LDQ DCWWD,T GET THE DCW RESIDUE 
2054 STAQ D2STA SAVE THE DEVICE STATUS 
OC 2052 REL RELEASE THE EXTRA LIST ELEMENT 
, 2053 L DX T,/UST RESTORE USER'S T 
2054 * 
Oo 2055 * NOW FIGURE OUT WHICH STATUS TO RETURN 
2056 * 
2057 Dv25 LDA TAL1 GET OPERATION COMPLETE FLAG 
O 2058 ORA TAL2 
2059 TNZ EXIT OPERATION IS NOT YET DONE 
2060 LDA D2STA GET THE STATUS WORD 
® 2061 TZE DV26 NONE» DON'T UPDATE OURS 
2062 CMPA BDADS CHECK FOR FAKED BAD DA 
2063 TZE DV26 YES -- DON'T UPDATE 
oe 2064 ANA 7*64,D0L CHECK FOR GOOD STATUS 
2065 TZE bV26 YES -- DON'T UPDATE STATUS 
2066 LDAQ D2STA GET THE STATUS WORDS 
O 2067 STA QUEWD,T SAVE THE QUEUE WORD 
2068 STQ DCWWD,T SAVE THE DCW WORD 
2069 * 
O 2070 * RETURN TO USER 
2071 * 
2072 DV26 LXL Xe UST SET UP RETURN C29NAN77) 
C) 2073. SXL X-QSRUN-T P C29JAN77)9 
2074 MTQ QUEUE IT 
2075 D2DEV LDX SraeesDU GET DEVICCE NUMBER 
O 2076 STX S/DACsT RESTORE DEVICE NUMBER FOR LOGS 
2077 TRA RETR GET NEXT OPERATION FOR THIS DEVICE 
2078 * 
O 2079 * SUBROUTINE TO CHECK FOR TRAILING IONTP OR IOTP DCW'S 
2080 x 
2081 * 
O 2082 DCWCK STX X/DCWCL SAVE TALLY POINTER 
2083 DCWCL LDA watiaw DI GET NEXT DCW 
2084 ANA MSIOTP+MBIONPB,DL AND IT 16AUG74 
O 2085 TZE 0-0 AN IOTDs WE'RE IN LUCK sy) 
2086 CMPA MSIOTPSDL CHECK FOR IOTP ‘ 16AUG74 
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SUBROUTINES 


A gina) 
IONTPs IGNORE 
WIPE OUT CALL IF ALL IONTP 


CHANGE IOTP TO IOTOD 


RETURN 


STATUS RETURN FOR SECOND OPERATION 


TALLY FOR OPERATION 1 

TALLY FOR OPERATION 2 

STORAGE FOR USERS T AND XQ 

COUNT OF WORDS LEFT IN THE CURRENT DEVICE 
TEMPORARY 

T FOR NEW OPERATION 

MASK FOR ALL BUT COUNT FIELD OF THE DCW 
QUEUE FOR THE DEVICE 

ASSUME 2-LEVEL QUEUE 

INITIALLY NOT BUSY 

LAST ELEMENT POINTER 

PRIORITY 1 INDEX 

DEVELOP REST OF QUEUE 

INDIRECTION 
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CINSERT SEGMENT) 


PHYSICAL I/0 -- SUBROUTINES 

EJECT 

MPC PRE~SIEZE ROUTINES 

NULL 

LDA USPDAsS WE WANT THIS PUB 
CHAN (O-AU) 

EAA O, AU » 
TSXO ISCHAN 

TRA SBZOPF,* ILLEGAL CHANNEL? 
TRA MPPS2 GOT IT 

CHANNEL HAS BEEN RELEASED 

LXL XeQ$BUSY+P$Q,P GET BUSY FLAG 

STX Xe kt] MODIFY NEXT INSTRUCTION 
CMPX Prewee rc DU LDLeE? 

TNZ CBUSY REJECT IF NOT 

NULL 

STX P,PUBsT MAKE PUB COME BACK 
RREG RESTORE I/0 REGISTERS 
TSXO RREG CALL SUBROUTINE 
SAL TeQ$BBUSY+P$Q,P USE THIS PUB 

TRA DPS1TR 
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MPPC1 


x 
MPPC2 
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PHYSICAL I/0 ~~ SUBROUTINES 


TTLS 


MPC PRE~CONNECT ROUTINES 


LDA 
STA 
EAA 
ORA 
STA 
LDA 
ALS 
STA 
LDA 
ORSA 
TRA 


LDQ 
STA 
LDA 
ORSA 
TRA 


OCT 
OCT 
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MPRC 
SIOCW,T 
SEKAD,T 
1,/DL 
SKDCW,T 
SEKAD,T 
36-16 
SEKAD,T 
BSIOCDM,SDL 
PSSTATsP 
0-0 


MPRS 
IDCW,T 


BSIOCON+BSSPIOP,DL 


PSSTATsP 
00 


020000724000 
400000700201 


SUBROUTINES 


SET READ ASCII 

FORM ADDRESS DCW 

STUFF IT 

FIX START ADDRESS 
MPC*S USE 16-BIT WORDS 
SET DRUM CONNECT MODE 
RETURN 


SET CORRECT IDCW 


AND CONNECT BITS 
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000000 
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000000 
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2350 17 
70090 O00 
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6000 00 
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7100 OO 


002462 
2590:.34 
6350 01 
7550 14 
e550 '03 
7950 14 
2200 03 


4400 14 . 
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2350 14 
6050 00 
3150 00 
6010 Q0 
2270 14 
3750 03 
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2152 
2158 
2159 
2160 
2161 
2162 
2163 
2164 
2165 
2166 
2167 
2168 
2169 


eed 
e171 
etre 
210s 
2174 
2175 
2176 
2108 
2178 
EULo 
2180 
2161 
2182 


=Pe 185 


2184 
2185 
2186 
2187 
2188 
2189 
2190 
2191 
2192 
2193 
2194 
2195 
2196 
2197 
2198 
2199 
2200 
2201 
2202 
2203 
2204 
2205 
2206 
2207 
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CNSP1 


ENDIOM 
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TTLS 
HEAD 


DTSS EXECUTIVE CINSERT SEGMENT) 


PHYSICAL 1/0 
i 


DTSS TRADE SECRET 


SPECIAL INTERRUPT HANDLERS 


-- SPECIAL INTERRUPT HANDLERS 


THESE ROUTINES ARE ENTERED FROM SMTASK WHEN 
A SPECIAL INTERRUPT OCCURS ON CERTAIN DEVICES 


CARD READER, CONSOLE 


NULL 
NULL 
L DX 
STX 
REL 
TSXO 
LDX 
LDX 
CMPX 
Te 


LOX 
ORSX 
TRA 


SPECIAL 


NULL 
LDA 
TSXO 
MARK 
L DX 
Ve 
S72 
TRA 


PRINTER 


S*#DEVeT 
S7HECOMRD 


ASREL 

Se HBCOMRD 
Z*eUSPTYPE*S 
Z,USCON*ZDU 
CNSP1 


X#BSIOMDD,DU 
XeUSSTAT.SS 
HS COM 


SPECIAL ON CARD READER 

SPECIAL ON CONSOLE TYPEWRITER 

GET PHYSICAL DEVICE NUMBER 

WHICH IS LOGICAL DEVICE NUMBER FOR THESE 
RELEASE LIST ELEMENT 


GET THE DEVICE NUMBER 
GET PHYSICAL TYPE 
CONSOLE? 

YeéSs CHECK FOR USER READ 


SPECIAL IS FROM READER» LOAD DECIMAL BIT 
SET ON TO FORCE READ IN MIXED MODE 
ENTER CONSOLE INTERFACE 


IS FROM CONSOLE, CHECK FOR USER READ 


USPDA.S 
CHLOC 


SePSTEMP,AU 
H$COM 
PETEMP,AU 
CSUR4B 


GET THE PDA 
GET ENTRY LOCATION *OTIS 


POINT TO USER TASK 

NONE» SO WE*LL READ IT 
CLEAR TASK 

AND REJOIN COPY SUBROUTINE 


CCHECK BUTTONS VIA REQUEST STATUS) 


NULL 
LDA 
EAA 
STA 
LDA 
STA 
L OXO 
SXLO 
TSXO 
LDA 
TPL 
CANA 
TNZ 
LOX 
ANA 


DEV,T 

0. AU 

DACST 
MDDG+8*512,DU 
MODE »T 

Or DU 
ADEXT,T 

10 

QUEWD,T 
PRSPX 
PRSPS 
PRSPX 
SeDEVe,T 
BSBUTONsDU 


GET THE DEVICE NUMBER 

ONLY 

SAVE IN LIST. ELEMENT 

DIAGNOSTICs NON-DATAs REQS 

iW OLDS) ELEMENT 

SET ADDRESS EXTENSION TO FIRST 256K 


START 10 

GET STATUS 

FAKE STATUS =~ IGNORE 
CHECK FOR BAD STATUS 
IGNORE SPECIAL IF $0 

GET PHYSICAL UNIT NUMBER 
ISOLATE BUTTON BITS 
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000000 2550 17 
J02501 
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000000 7000 00 
900000 7100 909 


370000779700 


2208 
2209 
2210 


2211 
2212 
2213 
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PHYSICAL I/0 -- 


ORSA 
PRSPX NULL 
REL 
TSXO 
TRA 


PRSPS OCcT 


USSTATsS 


ASREL 
SEXIT 


370000770700 


SPECIAL 


DTSS TRADE SECRET 
INTERRUPT HANDLERS 
SET THEN IN STATUS TABLE 
RELEASE 10 LIST ELEMENT 
EVAPORATE 


BAD STATUS BITS 
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000000 
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000000 
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7900 O00 
2260 03 
002511 
0540 14 
6040 00 
6000 09 


4500 16 


G023.1.5 
71660 03 
1060 03 
6050 00 


2e(0 03 
002521 
167005 
6040 00 
22490 17 
6000 00 
0540 17 
6040 00 


1070 14 
60710 20 
2260 14 
f20.0 16 
1020 17 
6010 00 
002535 
7000 O00 
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2214 TTLS 

2215 HEAD 

2216 * 

2217 * 

2218 * 

2219 x 

2220 x 

2221 x 

2222 * 

2223 x 

2224 x 

2225 * 

2226 TICK NULL 

2e2¢ GTIM 
Xe TSXO 
“ 2228 ADLA 
ae 2229 STA 
Ke 2230 TSX 
et. @HCCS1 LOX 

2232 TICK NULL 
X. 2233 AOS 
R. 2234 TMI 
R. 2235 TZE 
Xe 2236 STZ 

ecst TICK2 NULL 
exe 2238 SBX 
os 2239 CMPX 
Re 2240 EPL 

2241 

2242 

2243 
a MH22G4 LOX 

2245 TICK4 NULL 
die 2246 S3X 
Me 2247 TMI 
X » 2248 L DX 
ee 2249 TZE 
a6 2250 AOS 
Re e251 TMI 

2252 * 

2253 * SPECIAL 

2254 * WE HAVE 

Cds oe x 

2256 INE 
ae 2257 CMP X 
KG 2258 TNZ 
a 2259 LDX 
Xe 72260 L XL 
: oe 2261 CMPX 
Re 2262 TNZ 

2263 FREE 
R TSXO 


PHYSICAL I/0 


I 


TICK/TOCK 


THIS ROUTINE GENERATES TICKS AT EVEN INTERVALS, 
ITSELF EACH TIME IT IS CALLED. 
FOR INTERRUPTS» 
ALSO WATCHES TASKS WAITING FOR SPECIAL INTERRUPTS, 
INFINITE WAITS. 


XS$GTIM 
2rDU 


XSTIM,T 
O-XSSTIM 
PreENIOMS*CHTLENt+4*¢EF PCHN~4,DU 


PETICK,P 


TICK2 
TICKS 


PETICKsP 


Pr4,DU 


PesMSPBPAY,DU 


TICK1 


SsDEVMAX, DU 


S1,D0U 
ZEXIT 


TAUSSPECsS 


TICKS 


USTICK.sS 


TICKS 


TICK/TOCK TIMEOUT MECHANISM 


DTSS TRADE SECRET PAGE 


-- TICK/TOCK TIMEQUT MECHANISM 


I FOR I/0 


REGENERATING 
IT WATCHES OPERATIONS WAITING 


TO BE SURE NO INTERRUPTS HAVE BEEN LOST. IT 


TO AVOID 


ENTRY POINT FROM SMTASK 

GET THE TIME NOW 

RETURN TIMER UNITS IN A 

SET 8K MS. 

SAVE TIME UNTIL NEXT TICK 

SET NEW TIMER TRAP 

START AT END OF TABLE *OTIS 
LOOP POINT FOR PUBS 
INCREMENT PUB TICKER 

IF NEGATIVEs OK 

WENT FROM NEGATIVE TO ZERO - 
WAS ZERO BEFORE - RESET 

NEXT PUB 

STEP TO NEXT PUB 

FINISHED WITH PAYLOAD CHANNELS? 
CONTINUE IF MORE 


RUNOUT 


NOW CHECK FOR SPECIAL INTERRUPT TIMEOUTS 


END OF DEVICE #°S *OTIS 
LOOP POINT FOR DEVICES 
STEP DOWN DEVICES 

WE'RE DONE 

SEE IF WE AWAIT A SPECIAL 
NO - NEXT DEVICE 
INCREMENT THIS TICKER 

HAS NOT RUN DOWN YET 


INTERRUPT 


INTERRUPT TIMEOUT 
WAITED LONG ENOUGH 


S$DEBUG-0-2 
S/DEVe,T 
SZOPF,* 
P,PUB,T 
Y7QSBUSY+PSQ,P 
YeUSSPEC*S 


TICK6 
PUB 
ESFREE 


ASSEMBLE IF WE ARE DEBUGGING 

MAKE SURE DEVICE NUMBER IS CORRECT 
FUNNY LIST ELEMENT IN TABLE 

GET PUB NUMBER IF ANY 

IS THIS PUB BUSY, 

AND BY US? 

NOs SO DON'T FREE IT 

RELEASE PUB WE WON'T BE USING 
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ooc000 
000000 
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3160 16 
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6560 16 
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7100 00 
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Ctra 
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2294 
Ee 9D 
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TICK6 


TICK? 


TECK 


TOCK 


PHYSICAL 1/0 -~- TICK/TOCK TIMEOUT MECHANISM 

L DX S7DEV,T RESTORE DEVICE NUMBER 

NULL 

ERSX T/USSPEC.S CLEAR SPECIAL POINTER 

LXL X/SPRET-T GET THE RETURN FOR TIMEOUT 
CMP X Xe SPTMODU STANDARD RETURN? 

TZE TICK? YES, @ oe NO: LOG 

LOG CSPECIAL TIMO),-CUSPDA,S),(SEKAD,T) 

ee ISFLOG DON’T INHIBIT DEVICE OUTPUT 
TSX OU, ISL0G CAN BE CALLED FROM THE OUTSIDE WORLD 
BCI 2/SPECIAL TIMO TEXT ARGUMENT 

ARG USPDA,SS YESs POINT TO IT 

ARG SEKAD,T 

ALARM RING THE ALARM 

INHIB SAVE,/OFF UNINHIBIT 

NOP 91356-DU SIGNAL ALARM WANTED 

INHIB RESTORE RESTORE INHIBIT 

NULL 

LDA SPRETsT GET TIMEOUT RETURN 

MTQA QUEUE IT 

TSXO QEMTQA CALL SUBROUTINE TO QUEUE TASK 
TRA TICKS AND CHECK NEXT DEVICE 


PUB HAS TIMED OUT ~- ENQ TASK 


DTSS TRADE SECRET 


GET PUB BUSY BIT 


wE TIMED OUT NOTHING 
REMOVE PUB BUSY BIT 
GET PIO LIST ELEMENT 


NO LIST ELEMENT 

SET UP FAKE DCWWD 
INDICATING ZERO TRANSFER 
FORM FAKE TIMEOUT STATUS 


SERVICE LIKE TERMINATE INTERRUPT 


CALL SUBROUTINE TO QUEUE TASK 


ENTER HERE FROM SMTASK 
STATUS FOR SPECIAL TIMEOUT 


NULL 

LDa BSIOBSYsDL 

CANG PSSTAT*/P SHOULD BE ON 
Ie BZOPF».* 

ERSQ PBSTAT»P 

LxL Te Qa BUSY+PS$Q,P 

TLE SZOPFs,* 

LDA DCwWrT 

STA DCWWO,T 

LDA STIMO 

STA QWORD-T SAVE IT 

LDA ITERM,DL 

MTA QUEUE THE TASK 
TSXO QEMTQA 

LD X T0/0U SPPML 

TRA TICK2 CHECK NEXT PUB 
TASK TO SERVICE SPECIAL TIMEOUT 

NULL 

LDA TICKS 

TRA FAKE 


RETURN STATUS TO USER 


DUMMY LIST ELEMENT FOR TICK/TOCK - 


ZERO 
ZERO 


O-TICK 


QSLINK/QSRUN 
XSTIM 
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000000 
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7400 14 
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PHYSICAL I/0 =-- INITIATION 
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TTLS PHYSICAL I/0 -- INITIATION 
HEAD I I FOR I/0 
* 
* 
* ISERROR IS POINTED TO BY THE ILLEGAL ENTRIES IN THE PIO COMMAND 
* TABLES. IT MAY BE TRANSFERRED TO IF WE SCREW UP. 
* 
ERROR TRA SZOPF,* CAUSE A ZOP FAULT 
* 
* 
* ENTRY IS MADE HERE FROM THE CALLING ROUTINE. THE USER LIST 
* ELEMENT IS POINTED TO BY XR=T. ENTRY IS VIA A TSXO. 
x 
10 NULL ENTRY POINT 
CKPT 12 NOTE REGISTERS AT ENTRY 
XED SCKPT 
STXO URETsT SAVE USER RETURN IN LIST ELEMENT 
kkk kkk kkk kak keke keke eE OG IT/G CALL FOR SYSTEM LOGGERXkkke aK KKK KE 
LDA =7B21,DU GET TYPE OF CALL (1/0 START) [21APR77] 
SYS1 NOP 1OSLG,DU kxkkKX CHANGE TO TSXO WHEN LOGGING**xxx 
KKK KKK KK KKK KKK KKK KKK KK KK RK KH KKK KK KKK KKK KAKA KK KKK KKK KKK KKK KK 
* 
* CONVERT LOGICAL DEVICE ADDRESS TO DEVICE NUMBER 
< | 
LDA DAC/T GET LOGICAL DEVICE ADDRESS 
ANA DAMSK ONLY 
AOS DSIOCTsAU COUNT DEVICE USAGE FOR STATISTICS 
LDA DAC,T RESTORE DA C15DEC76] 
TSXO CONV CONVERT TO PHYSICAL ADDRESS 
SXL ZeTYPE.T SAVE DEVICE TYPE 
STX S,DEVe,T SAVE UNIT NUMBER 
STA SEKAD,T SAVE SEEK ADDRESS 
LDA MODE,T GET USER*S COMMAND 
CMPA MDOG,DU CHECK FOR DIAGNOSTIC COMMANDS 
TRC DIAG BRANCH OUT FOR DIAGNOSTIC COMMANDS 
* 
x LOOK UP THE COMMAND IN THE MASTER TABLES 
* 
L DX Z/USPTYPE,SS GET THE UNIT TYPE 
L DX ZeT&HIOCMD,2Z GET POINTER TO MASTER TABLE FOR THIS DEVI 
LDQ MMASK MASK FOR SIGNIFICANT PART OF MODE ONLY 
ARL 18 MOVE MODE CODE TO LOWER 
RPL O-TZE LINK THROUGH THE TABLE 
NOTE THAT TABLE IS PADDED WITH RJCT 
CMK 0-2 LOOK FOR THIS COMMAND 
STX Z/-CMDe-T SAVE POINTER TO COMMAND TABLE 
& 
* SIEZE THE DEVICE FOR THE OPERATION 
* 
LDXO MAINS DU RESTART ADDRESS AFTER QUEUEING FOR DEVICE 
102 NULL JOINED HERE BY DIAGNOSTIC ROUTINES 
SXLO QSRUN,T SAVE IN LIST ELEMENT 
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QSET 


= &* et ee 


EXT 


* 
* 
ke 
MMASK 


PHYSICAL I/0 -- 


L DX 
TMI 
LAL 
TNZ 
SAL 
TRA 
ENQ 
EAX 
E AX 
SET 
E AX 
TSXO 
AQS 
TRA 


P,U$S$Q~,S 
00 
X7,QSBUSY-P 
w+ 3 
TeQBBUSY,P 
0-0 

Te (O-P) 
X70-T 
Y?0-P 

2 

Ze QSET 
QSENQ 
XSSWPCT+16 
SEXIT 


INITIATION 
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RELEASED Q1DEC80 


POINT TO DEVICE QUEUE 

NO QUEUE ~- JUST DO OPERATION 

SEE IF IT IS BUSY 

IT IS SO QUEUE UP 

IT ISN'T, SO GRAB IT 

EXECUTE CURRENT TASK FOR DEVICE 
GET ON THE QUEUE FOR THIS DEVICE 
PUT IT THERE 

WUEUE-DESCRIPTOR VECTER 

ASSUME NO PRIORITY SPECIFIED 
PRIORITY 

GO TO ENQUEUE CODE 

INCREMENT TOTAL DEVICE QUEUE LENGTHS 
WAIT FOR UNIT TO BE FREE 


COTFEB77) 


THIS ROUTINE INITIATES THE NEXT OPERATION ON A GIVEN DEVICE. 
ENTRY IS BY A TRA, 
IS NOT SIGNIFICANT ON ENTRY. 


NULL 
L DX 
TMI 
DEQ 
EAX 
TSKO 
EAX 
SXL 
TZE 
LCQ 
ASQ 
TRA 


P,USQ-S 
SEXIT 

Te (OrP) 
Xe0rP 
QSDEQ 
T7O0-Y 
TeQ$BUSY,P 
SEXIT 

V7 DL 
XS$SWPCT+16 
eae i | 


WITH THE DEVICE NUMBER IN XR-S. 


REGISTER T 


ENTRY POINT 

POINT TO QUEUE WITH PERMANENT REGISTER 
NO QUEUE ~- JUST EXIT 

GET NEXT REQUEST IF ANY 

LOAD QUEUE NAME 

EXECUTE NECESSARY CODE 

LOAD REGISTER WITH LIST ELEMENT ADDRESS 
SAVE BUSTIER OR UNBUSY IF ZERO 

NO NEXT OPERATIONs SO LEAVE QUEUE FREE 
DECREMENT TOTAL OF DEVICE QUEUE LENGTHS 
LITRE. 350 
GOT ONE, 


COVFEB774) 
COTFEB?7) 
SO GO DO IT 


CONSTANTS AND STORAGE FOR I/0 SETUP 
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777777000077 


MASK FOR SIGNIFICANT PART OF ISMODE 
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Zoo 
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MAIN 
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MAINA 


MPSSR 
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DTSS TRADE SECRET 
PHYSICAL I/0 ~- MAIN OPERATION DRIVER 


TTLS PHYSICAL I/0 
HEAD I 


-- MAIN OPERATION DRIVER 
{ FOR I1/0 


CONTROL IS PASSED HERE VIA SEXIT WHEN THE DEVICE HAS BEEN 
SUCCESSFULLY SIEZED. THE OPERATION IS SET UP AND ISSUED. 


NULL 

L DX Xe0/DU GET HALF A ZERO 

SXL Xe,USRETRY*S INITIALIZE RETRY COUNTER 

NULL HERE FOR CHAIND OPERATIONS 

LD X Xe TSLOPSS4Z POINT TO PRE-SIEZE SUBROUTINE 

TSXO OX CALL SUBROUTINE BEFORE SIEZING PUB 
NULL RETURN POINT FOR SUCH SUBROUTINES 
SIEZE PUB GET A CHANNEL FOR THE OPERATION 

EAX Zee ASSUME DEFAULT PRIORITY 

TS XO SIEZE CALL SUBROUTINE TO QUEUE 

NULL RETURN HERE FROM HIGH-PRIORITY SIEZE 
LDX Xe+TSIOPCS 22 ADDRESS OF PRE-CONNECT SUBROUTINE 
TSXO QO» X CALL SUBROUTINE BEFORE ISSUING CONNECT 
NULL RETURN POINT FOR SUCH SUBROUTINES 


ISSUE CONNECT SEQUENCE 


NULL JOIN HERE TO RETRY AN OPERATION 
LXL XvTSIOCIOe2Z SEE IF NON-STANDARD CONNECT ROUTINE EXIST 
TNZ O+X YES - GO TO IT 
NORMAL CONNECT SEQUENCE 
IFIOM 
NULL 
SET UP MAILBOX BASE*OTIS 
TSXO IOMS GETS TOMA IN ALZ4&*CH IN YR *OTIS 
CMPA SNIOMS/DL CHECK IT *OTIS 
TRC BZOPF,* SHOULD NEVER HAPPEN *OTIS 
STA X$CRIOM SAVE FOR CONNECT *OTIS 
LDQ XSMBXP» AL MBX BASE TO QUsSW BASE TO QL *OTIS 
STQ X$BCRBAS SAVE FOR LATER*OTIS 
EAXO OY 4xCH TO XO *OTIS 
ADXO X$ECRBAS PAYLOAD CHANNEL MBX ADDRESS TO XO*OTIS 
EAA O-QU MBX BASE TO AU *OTIS 
ADA XSLPPCW ADD IN STANDARD LPW WORD*OTIS 
STA XSCONCHAQU SAVE IN CONNECT CHANNEL MBX*OTIS 
LOA XSLPPCW+1 STANDARD PCWA*OTIS 
STA XSCONCHt+2-QU SAVE IN PROPER MBX*0TIS 
EAA O-yY FORM PCWB *OTIS 
ALS o72 BY PUTTING PUB IN CORRECT FIELD *OTIS 
STA XSCONCH+3,QU SAVE IN PROPER MBX*0OTIS 
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* 


* 


PHYSICAL I/0 


ARL 9-1 

EAX Xe0-QL 

STA X$SCW-0 

ASX XeX$SCW-0 
STZ XSLPWX 0 
FORM IDCW-, 

LXL XePSSTAT AP 
CANX X,BSIOBSY.,DU 
TN2 SZOPF,* 

ORX Xe#BS1LOBSY,DU 
LDA USPDA.sS 

ANA =07700,DU 
ORSA X$SBCONCHH+2,0U 
ORA TEIOCPC eZ 


~~ MAIN OPERATION DRIVER 


DTSS TRADE SECRET 


FORM RELATIVE SCW *OTIS 
PUT SW BASE IN X*OTIS 
SAVE SCW WORD IN CHANNEL MBX*OTIS 
MAKE SCW ADDRESS ABSOLUTE*O0TIS 
ZERO LPW EXTENSION WORD*OTIS 


SET FLAGS AND THINGS 


GET CHANNEL FLAG BITS 


IS If 


IN USE? 


PUB QUEUEING FAILURE 

SHOW WE EXPECT AN INTERRUPT 
GET DEVICE ADDRESS 

MASK TO DEVICE NUMBER 


PUT DEVICE # 


IN PCWA*OTIS 


OR IN REST OF COMMAND 


SeT UP ADDRESS EXTENSION FOR EXTENDED MEMORY 


LDA 
Qs 
CMPQ 
TRC 
STAQ 
ORA 
ORA 


NOW 


FAQ 
E AX 


CANX 
5 a as 
ERX 
EA 


CANX 
TNZ 
CANA 
TZE 
ORA 
CANX 
Ze 


STA 
LDQ 
STQ 
ALR 
ANA 
STA 


ADEXTsT 
18 

SMSIZE 
SZOPF,* 
CTEMP 
CTEMP 
MSIOCW,OL 


FIGURE OUT WHERE TO 


I0CWeT 
Ye IDCW,T 


XeBSIOCDM,DU 


+3 


Xe#BS1O0CDM,DU 


SIDCW,T 


LOAD SPECIFIED ADDRESS EXTENSION IN QL 
MOVE TO BITS 12-17 
DO WE HAVE THIS MUCH MEMORY? 


NO>s 


DIE NOW 
SAVE CORRECTLY POSITIONED ADDRESS EXTENSION 


ADD TO COMMAND 


MAKE INTO AN 


PUT COMMAND 


IDCW 


SET UP THE DEFAULT LPW 
AND DEFAULT PLACE TO PUT COMMAND 


IS THIS A SEEK/READ OR SEEK/WRITE? 


NO»s 


SKIP 


TURN OFF BIT 
LPW POINTS TO SEEK IDCW FOR SEEK/READ OR SEEK/WRITE 


X/BSIOCPM+BSIOCDN,DU 
YES*SKIP 
IN FIRST 256K 


CIOCE 
=077,DU 
*+2 
MSEC DL 


X*#BSIOLV6,DU 


CIlOC? 


XBLPWX-O 
DCWeT 
X$DCW-0 
6 
=077-DL 
CTEMP 


YES 


NO ADD CHANGE~ADDRESSEXTENSION BIT TO IDCW 


COMMON PE 


RIPH. 


IS THIS LEVEL6 DIA 


NO -- 


WERE DONE 


SAVE IDCW ASIDE*OTIS 
GET ACTUAL DCW 
SAVE ACTUAL DCW*OTIS 

ISOLATE AND POSITION COMMAND 


START BUILDING PCW FOR L6 


OR DN3O/MPC RESET? 
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PHYSICAL I/0 -- MAIN OPERATION DRIVER 

CMPX Z/TSLORDsZDU READS AND WRITES ARE SPECIAL 

TZE CIOCA. 

CMPX Z/TEL6WTADU 

TNZ CIOCH 

LDA XSLPWX 0 PUT BITS 12-29 OF IDCW*OTIS 

ARL 6 INTO BITS 18-35 OF SCW 

ANA -“1,DL SO LEVELG CAN FIGURE OUT WHAT TO DO 
ORSA X$SCW,0 SAVE IN CHANNEL MBX*0TIS 

LDA OrZ GET COMMAND PROMPT 

-ARL 6 TURN IT INTO INTERRUPT PARAMETER 

ANA =07700-/DL 

TRA CIOCD FINISH BUILDING 

LDA BSSIGN,DU FAKE STATUS SINCE L6 WONT SUPPLY ONE 
STAQ X$SCWAO* SAVE STATUS PAIR 

CMPX Z-TSL6AR,ZDU HANDLE AWAIT READY COMPLETELY DIFFERENT 
TZE cC1occ¢ 

LDA ADEXT.T PASS ADDRESS EXTENSION ALONG 

ANA =077,D0L ISOLATE 

ALS 6 

ORSA CTEMP KEEP BUILDING 

LDA DCWeT AND ACTUAL ADDRESS 

ANA =41,0U ISOLATE 

TRA CIOCD 

LDA =Q0300/DL GIVE OURSELVES A TERMINATE INTERRUPT 
ORSA CTEMP PCW FOR L6 NOW COMPLETE 

LDA MSIDCW,DL GET PCWA MARKER 

‘meeye CTEMP PUT PCW IN CHANNEL LPW 

EAX YsX$CONCHT2 PUT IOM COMMAND IN PCWA LOCATION*0TIS 
ADX YeX$CRBAS ADD IN MBX BASE*OTIS 

STZ X$BLPWX-0 RESET LPWX SINCE ERR=RECOVERY CARES*OTIS 
ANX Xe-1-BSIOLV6-DU CLEAN UP 

TRA CIOC? 

NULL 

E AX YeX$CONCHtT2 FOR BOTH CP AND DN-COMMAND GOES IN PCWA*OTIS 
ADX Y/X$CRBAS ADD IN BASE*OTIS 

C ANX X-BSIOCPM, DU CP CHANNEL? 

TZE «+3 NO» SKIP 

EAQ DCW.T FOR CP CHANNEL, LPW POINTS TO DATA DCW 
TRA x+2 SKIP MASK TO DN30- CONSOLE» MPC RESET 
ANA =0777700777777 MASK OUT ADDRESS EXTENSION FOR DN30s CONSOLE 
ANX Xe-1-BSIOCPM-BSIOCDN-DU TURN OFF BITS 

NULL 

STA O-Y STORE COMMAND 

STQ X$LPW.O STORE LPW*OTIS 
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PHYSICAL I/0 ~~ MAIN OPERATION DRIVER RELEASED 01DEC80 
O 
SXL X,PSSTAT,P RESTORE CHANNEL STATUS BITS COSNOV77) 
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PHYSICAL I/0 -- MAIN OPERATION DRIVER 
EJECT 
IFIOC 
x 
C1o0c NULL 
EAQ DCWt+1,T POINT TO SECOND OCW 
LDA -1,/QU GET FIRST DCW 
c101 NULL SMBX1 IN Av SMBX2 IN Q 
STZ P$SMBX3,P CLEAR OUT CARD PUNCH MODE, ETC. 
STZ PSSMBX4,P 
Cid NULL SMBX3 AND SMBX4 SET UP 
ORQ =0776,/DL FORM BAR FOR IOC 
STAQ P$SMBX14/P SAVE FIRST AND SECOND MAILBOXES 
* 
* CALCULATE PMX 
x 
STZ PMBXI,T CLEAR OUT WORD TO START 
STX PsPMBXI,T SAVE PUB ADDRESS 
LDA USPDA.sS GET PHYSICAL DEVICE ADDRESS 
ANA =0007700,DU ISOLATE DEVICE CODE 
ORA TSIOCPCA2Z OR IN DEVICE COMMAND 
ORA PMBXI,T PUT IN PUB NUMBER 


SET FLAGS AND THINGS 


LXL XePBSTAT +P 
IFG $BDEBUGs0-2 

C ANX Xe/,BSIOBSY,DU 
TNZ SZOPF,x* 

OR X X/,BS108SY,D0U 
C ANX XsBSCIORR,ZDU 
Ze x+3 

ERX XeBSCIORR,DU 
ANA NOMSK 

C ANX XsBSIOCPM,DU 
TLE x +3 

ERX X,BSIOCPM,DU 
STA PLSMBX3-P 

C ANX XeBSIOCDOM,DU 
TZE a +4 

ERX XeBSIOCDM,DU 
ANA =0007777.DU 
ORA DRSK 

STA PMBAIs,T 

SXL XePB$STAT*P 


* 
ENDIOC MARK 


GET CHANNEL STATUS 
IF WE ARE DEBUGGING 


SEE IF OPERATION IS OUT ON THIS PUB 


PUB QUEUEING FAILURE 


SHOW WE EXPECT AN INTERRUPT ON THIS CHANN 


SEE IF READ-REGISTER COMMAND 
SKIP IF NOT 

TURN: - OFF “BIT 

AND REMOVE DEVICE CODE FROM PMBXI 
IS THIS CARD PUNCH MODE? 

NOs SO SKIP 

TURN OFF BIT 

SAVE PMBX IN SMBX3 

SEE IF DRUM OPERATION 

SKIP IF NOT 

TURN OFF BIT FOR NEXT TIME 
ISOLATE DEVICE ADDRESS 
CREATE SEEK COMMAND 

SAVE IN LIST ELEMENT 

RESTORE STATUS BITS 
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003043 
003044 


09/03/81 09308355 
i 
2586 
2587 
VTOOTE SEO OS soe 2588 
OO0000 3410 17 x. L959 
2590 
2591 
cove 
O000004 3360 13 .. 2593 
(?(??7? 2760 O3 ae 2994 
OO00000 7560 16 X. 227) 
2596 
ae Bae | 
2598 
2599 
003245 7200 00 Rw ~+2600 
O00000 0150 10 X. +2601 
2602 
2603 
2604 
003042 2605 
occoego 7000 O00 x. 
000000 7550 16 Xx. 2606 
000000 7700 O00 x. 2607 
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PHYSICAL I/0 -~ MAIN OPERATION DRIVER 
EJECT 
LDX Xe-1-BSIOSPC-BSIOSKC-BSBUTON-DU MASK FOR INTERRUPT BITS 


ANSX 


SET TICK-TOCK GOING 


~ LCQ 


ORQ 
STQ 


X/USSTAT«S 


TSEIOTMO 42 


71,00 


PSTICKsP 


ISSUE CONNECT 


LXLO 
CIOCc 


GTIM 
TSXO 
STA 
TRA 


XSCRIOM 
XS10M,0 


X$GTIM 
XSTIOSTBsP 


SEXIT 


FORGET ABOUT SPECIALS FOR THIS DEVICE 


GET TIMEOUT QUANTITY FOR THIS OPERATION 
MASK OFF UPPER HALF 
SAVE IN TICKER 


GET IOMH BACK TO XO*OTIS 
ISSUE CONNECT ON SELECTED IOM*OTIS 


SET CHANNEL BUSY STATISTICS TIMER 


GET TIME SINCE BOOTLOAD 

RETURN TIMER UNITS IN A 

SAVE TIMER IN IO START TIME TABLE 
AND MOVE ON... 


T6AUG74 
16AUG74 
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RELEASED O1DEC80 


CO9DEC79) 


CO1DEC 803 
CO1DEC80) 
C22seP78) 
C22SeP78) 
C22SeP78) 
C22SeP78) 


C22SEP78) 
C22Ser78) 


Co ©: se 
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Oo 3: 
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003046 
003047 
003050 


003051 
003052 
003053 
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003055 
003056 
003057 


003060 
003061 
003062 


003063 
003064 
003065 


003066 
003067 
003070 
003071 
003072 
003073 
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N00004 
000001 
000016 
002571 


900002 
000000 
000002 
900015 
920000 
090000 
002671 


040000 
000000 
002671 


2ccoao0 
000000 
002671 


000007 
000022 
000001 
OC3072 
000000 
002671 


003045 


003045 
63590 14 
trou (OF 
LI90 14 
7100 OO 


903051 
4430 14 
6550 16 
2750 07 
7550 14 
eso) 07 
2550 16 
7100 00 


903060 
235) 07 
2720) 46 
7109 00 


003063 
25a. 07 
2550 16 
7100 OO 


003066 
2350 14 
7710 00 
6210 13 
7410 O00 
7510 01 
7100 00 


X 
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2608 
2609 
2610 
2611 
2612 
2613 
2614 
2615 
2616 
2617 
2618 
2619 
2620 
2621 
2622 
2623 
2624 
2625 
2626 
2627 
2628 
2629 
2630 
2631 
2O35e 
2633 
2634 
+2635 
+2636 
7057 
+2638 
+2639 
+2640 
+2641 
2642 
2643 
2644 
2645 
2646 
2647 
2648 
2649 
2650 
2651 
2652 
2653 
2654 
2655 
2656 
2657 
2658 
2659 


DTSS EXECUTIVE CINSERT SEGMENT) 


IOCS 


CIODN 


CIOMR 


PHYSICAL I/0 


EJECT 


DTSS TRADE SECRET 


~~ MAIN OPERATION DRIVER 


ALTERNATE CONNECT ROUTINES 


IFIOM 

DISK SEEK 

NULL 

EAA SEKAD,T 
ORA 1,DL 
STA DCWsT 
TRA croc 


POINT TO SEEK ADDRESS 
MAKE IOTD FOR 1 WORD 
SAVE IN LIST 

JOIN NORMAL ROUTINE 


DN30 FUNCTIONAL HEADER READ AND WRITE 


NULL 
SXL 
EAA 
ORA 
STA 
LDA 
ORSA 
TRA 


LEVEL 6 


NULL 
LDA 
ORSA 
TRA 


Z/ CDs T 
PSTEMP»,P 
27DL 
IDCWe,T 
BSIOCDN,ADL 
PSSTATsP 
CIOC 


CCNNECT SETUP 


BRBIOLV6,DL 


PSSTAT>P 
CIOC 


CARD PUNCH MODE 


NULL 
LDA 
ORSA 
TRA 


BSIOCPM,DL 
PSSTAT«sP 
Croc 


MULTI~RECORD SET UP 


NULL 
LDA 
ARL 
EAX 
STX 
STCA 
TRA 


MODE .T 

18 
XeTSIOCPC-Z 
Xk] 
aware 

CIOC 


SAVE CURRENT COMMAND IN CASE OF RETRY 
POINT TO UNUSED PLACE 

MAKE A 2 WORD IOTD 

SAVE IN SPECIAL KLUDGE PLACE 

TELL CONNECT ROUTINE 


JOIN NORMAL ROUTINE 


NOTIFY ALL THAT WE ARE SPECIAL 


CONTINUE NORMALLY 


TELL CONNECT ROUTINE 
TO FUDGE IT 
CONTINUE NORMALLY 


GET RECORD COUNT 
SHIFT TO CORRECT FIELD 
POINT TO IDCW IMAGE 


PUT RECORD COUNT INTO IDCW 
AND CONTINUE NORMALLY 
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RELEASED 


01DEC80 


C22seP78] 
C22SEP78)] 
C22S&P78) 
C22S—EP78) 
C22SEP78) 
C22SEP78) 
CO9DEC?79I 


CLOSNOV?7) 
COSNOV77) 
COSNOV77) 
COSNOV?77]) 
COSNOV77) 
COSNOV77) 
COSNOV?7 4] 


COTDEC8&OI 
CO1DEC80) 
CO1DEC80I 
COT1DEC80)I 
CO1DEC80I 
CO1DEC80I 
CO1DEC80I 


O O GO O08 © © 0 O © 
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© 
O PIO 09/03/81 09:08:53 DTSS EXECUTIVE CINSERT SEGMENT) DTSS TRADE SECRET PAGE 89 
I PHYSICAL I/0 -~= MAIN OPERATION DRIVER RELEASED O1DEC80 
O 2660 * POST-READ WRITE ON CONSOLE COSNOV?77) 
2661 * COSNOV77) 
O 003074 2662 CIOTY NULL COSNOV?77) 
003074 020000 2350 07 .. 2663 LDA BSIOCDNZDL SET DN30 MODE BECAUSE THE DCW COSNOV77) 
003075 O00000 2550 16 X. 2664 ORSA PESTAT»P FOR THE WRITE IS IN IDCW,T COSNOV?7) 
O 003076 002671 7100 OO R. 2665 TRA CIOC CONTINUE COSNOV?77I 
2666 x 
2667 * DRUM SEEK~-READ OR SEEK~WRITE 
OC 2668 * 
003077 2669 CIODM NULL 
003077 100000 2350 07 .. 2670 LDA BSIOCDMsDL SET SETUP BITS 
O 003100 000000 2550 16 x. 2671 ORSA PSSTATAP FOR CHANNEL 
003101 000004 6350 14 .4. 2672 EAA SEKAD,T GENERATE SEEK DCW 
003102 000001 2750 07 .. 2673 ORA TDL 
O COS7TO3S. Q0O00T4 7550 14. a 2674 STA SKDC WeT PUT INTO LIST 
003104 00090000 2350 17 xX, 2675 LDA USPDAsS GET DEVICE ADDRESS 
OOSTES. O07 700 3750. OS. us 2676 ANA =07700,DU ONLY C21APR77) 
O 003106 003234 2750 OO R. 2677 ORA DRSK OR IN SEEK COMMAND 
003107 000013 7550 14 .. 2678 STA SIDCW,T SAVE IN LIST 
003110 002671 7100 00 R. 2679 TRA CIOC CONTINUE NORMALLY 
O 2680 * C170C1T76) 
2681 x SET UP FOR MPC RETRY ON TAPE C170CT76) 
2682 * C170cT76) 
O 003111 2683 MTCIO NULL C170CT76) 
003111 000000 2350 17 «&. 2684 LDA USRETRY-S GET THE NUMBER OF THIS RETRY C170CT76] 
OOST12  C80007 3750 07 &. 2685 ANA 77DL MASK DOWN C[170CT76] 
© 003113 003116 6000 OO R. 2686 TZE a+ 3 SKIP AUTO RETRY ON FIRST PASS C170CT76) 
003114 000030 2750 07 .. 2687 ORA =030,D0L FORM MPC COMMAND | {[170CT76] 
003115 000006 7350 00 .. 2688 ALS 6 [170CT76] 
oO 003116 000001 6210 13 .. 2689 E AX XeTSIOCPC,2Z POINT TO THE COMMAND C170CT76) 
OUS1T77 @0S120 7410 700 Rs 2690 STX Xpxt MODIFY INSTRUCTION C170cT76] 
003120 0000600 7510 O2 .. 2691 STCA rare Or TO MODIFY COMMAND C170CT76] 
ES 003121 002671 7100 OO R. 2692 TRA cI1oc C170CT76] 
2693 * C170CT76]) 
2694 x READ DETAIL STATS C170CT76) 
O 2695 * C170CT763 
003122 2696 DSPS1 NULL CI70CT76) 
003122 000000 2210 17 xX. 2697 L DX XeUSPTYPESS GET PHYSICAL: TYPE C170CT76]) 
O 003123 000151 2340 11 R. 2698 SZN TSDVSTB*SX CHECK TABLE ENTRY [170CT76) 
003124 004325 6000 OO R. 2699 TZE RJCT C170CT76) 
003125 000000 7100 10 .. 2700 TRA 0-0 RETURN IF ONE EXISTS C1i70CT76) 
C 2701 * C170CT76] 
003126 2702 DSAC14 NULL [170CT76] 
003126 000000 2210 17 xX. 2105 LDX Xe USPTYPE.sS GET PHYSICAL TYPE C170CT76) 
O 003127 O0017151 2350 11 R. 2704 LDA TSDVSTBsX GET PHYSICAL COMMAND CL170CT76) 
003130 000000 6000 20 x. 2705 TZE SZOPF,* CHECK OUT *=4 C170CT76] 
003131 000001 7550 13 .. 2706 STA TSIOCPCe2 C170CT76) 
O 003132 002671 7100 OO R. 2707 TRA CIOC CONTINUE NORMALLY C170CT76] 
~2708 * CO9DEC79I 
2709 ENDIOM MARK : CO9DEC?79) 
O 
@) 
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DTSS EXECUTIVE CINSERT SEGMENT) 


IODW 


IODR 


> &£ ww & & 


IOcP 


CIOMR 


DTSS TRADE SECRET PAGE 90 


PHYSICAL I/0 -~ MAIN OPERATION DRIVER RELEASED O1DEC80 

Esl ECF CO9DEC79) 
CO9DEC?79] 

LETOC CO9DEC79) 

DISC SEEK 

NULL DATA FROM SEKADsT CONE WORD) 

EAA SEKAD,T POINT TO SEEK ADDRESS 

ORA T/DL ONE WORD, IOTD 

NULL 

LDA O,DL NO NEXT DCW 

TRA C101 REJOIN NORMAL CONNECT SEQUENCE 


DATANET~30 WRITE 


NULL 

EAA PETEMPsP 
ORA 2+MSTOTP,DL 
EAQ DCWeT 

TRA C101 


DATANET=30 READ 


NULL 

EAA PSTEMP.,P 
ORA 2rd 

EAQ OCWeT 

STR PSSMBX4,P 
Lda BSIOCPM,DL 
ORSQ PSSTAT SP 
LDa ODL 

TRA C102 


CARD PUNCH MODE 


NULL 

EAQ DCWeT 

STQ PS$SMBX4¢P 
EAQ 1-aQU 

LDA BSIOCPM,DL 
ORSA PESSTAT«P 
LDA ~1/QU 

TRA C102 


MULTI RECORD SET-UP 


LDA MODE /T 
ARL 18 
EAX XeTSIOCPC.2 


PREFIX FUNCTIONAL HEADER 
POINT TO TWO WORD TEMP 

2 WORDS» IOTP 

POINT TO USER'S DCW LIST 
REJOIN NORMAL ROUTINE 


DUAL COMMAND MODE TO READ FUNCTIONAL HEAD 
POINT TO 2 WORD TEMP 

TWO WORDS, IOTD 

POINT TO USER DCW LIST 

SAVE FOR DUAL COMMAND MODE 

BIT TO SAY 

PUT PMBX IN SMBX3 

NO NEXT DCW FOR FIRST COMMAND 

REJOIN NORMAL ROUTINE 


PUNCH A CARD 
POINT TO USER DCW LIST 

SAVE FOR REUSE IN CARD PUNCH MODE 
GENERATE A NEXT-DCW POINTER 

GET A SIT FOR SMBX3 

TURN IT ON SO WE DO SETUP LATER 
GET FIRST DCW 

REENTER NORMAL ROUTINE 


GET RECORD COUNT 
SHIFT TO CORRECT FIELD 
POINT TO PMBX IMAGE 
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I PHYSICAL I/0 -~ MAIN OPERATION DRIVER RELEASED O17DEC80 

2762 STX Xex+] 
2763 STCA eel PUT RECORD COUNT IN PMBX IMAGE 
2764 LDA BSIOCPM,DL GET BIT TO COPY PMBX TO SMBX3 
2765 ORSA PSSTAT«P AND PUT IT IN CHANNEL STATUS 
2766 TRA CIOC CONTINUE NORMALLY 
276? k 
2768 * 
2769 * POST-READ WRITE ON CN, SINGLE CHARACTER ON TAPE 
2770 * 
2771 CIOTY NULL 
2772 LDA SEKAD,T GET DCW FOR WRITE 
e733 L Da 0,DU NO NEXT DCW 
er7?4 TRA CLOT TAKE NORMAL ROUTE FROM HERE 
erro? * 
Vala ae) * DRUM SEEK~READ OR SEEK-~-WRITE 
2777 * 
2778 CIODM NULL 
erry LDA BSIOCDM+BSIOCPM,DL SET BITS FOR SETUP 
27 8D ORSA PSSTAT»P IN CHANNEL STATUS 
278i EAQ DCWe,T POINT TO USER DCW LIST 
2782 §STa P$SMBX4,P SAVE IN FIRST DCW POINTER 
2783 EAQ 1,QU POINT TO NEXT DCW 
2784 EAA SEKAD,sT GENERATE SEEK DCW 
e785 ORA 1,D0L IOTDs 1 WORD 
2786 TRA C102 CONTINUE NORMALLY 
CHET * 
2788 x 
2789 * READ=REGISTER ON 2314 DISCS 
2790 * 
2791 CIORR NULL 
2792 LDA BSCIORR-,DL GET BIT FOR PMBX FUDGE 
2793 ORSA PSSTATSP SET IT IN PUB STATUS 
2794 CIOR1 NULL HERE ON ERROR CHECK READ-REGISTER 
2795 EAA PSTEMP »P POINT TO TEMP STORAGE 
2796 ORA 2”DL LENGTH OF TEMPORARY AREA 
2797 TRA C105 REJOIN NORMAL ROUTINES 
2798 x 
2799 * READ BINARY OR BCD ON TAPE CCHECK GAIN INTENSITY) 
2800 * 
2801 MTCIO NULL 
2802 LDA =0020000,DU GET BIT TO FLIP COMMANDS C21 APR77] 
2803 ERSA TZIOCPC,2Z SWAP IN SAVED DEVICE COMMAND 
2804 TRA CIOC AND RETURN TO CONNECT SEQUENCE 
2805 * C170CT76) 
2806 ENDIOC MARK CO9DEC79I 
2807 * C170CT76]) 
2808 * 
2809 * 
2810 * CONSTANTS AND STORAGE FOR CONNECT ROUTINES 
2811 * 

003133 2812 RSEEK BSS 64 PHYSICAL SEEK ADDRESS FOR ERROR LOGGING COSNOV?77) 
2813 COSNOV77) 
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a a 
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2827 
2628 
2829 


CTEMP 


DRSK 
& 


ENDIOM 


x 
CLO T 
CLOCt 
DRSK 
NDOMSK 
x 
ENDIOC 
* 


DTSS EXECUTIVE CINSERT SEGMENT) DTSS TRADE SECRET PAGE 92 
PHYSICAL I/0 ~- MAIN OPERATION DRIVER RELEASED 
BSS 1 TEMP FOR CONNECT ROUTINES 
IFIOM 
OCT 340000720001 DRUM SEEK IDCW 
MARK 
IFIOC 
OCT ¢ LAST PMBX NOT PICKED UP BY IOC 
OCT 0 COUNT OF PMBX'S NOT PICKED UP 
OCT 340000240002 DRUM SEEK COMMAND 
OCT (70077777777 MASK TO REMOVE DEVICE CODE 
MARK 


QO oO 


01DEC80 
COSNOV?77) 


CO9DEC79) 
CO9DEC 79) 
CO9DEC?79J 
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2830 
283) 
2832 
2833 
003235 2834 
2835 
2836 
e837 
000000011007 

003236 2838 
000005 040006 =b2 859 
OCOO00000040 +2840 
000012 040000 +2841 
400000720201 2842 
0900031 040000 ~+2843 
OCcoo00CCO00 20 +2844 
#2845 
003264 +2846 
003245 +2647 
2848 
2849 
2850 
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* 


LPDCW 


LPPCW 


SPDCwW 


& 


CRBAS 
CRIOM 
x 


ENDIOM 
x 


DOTSS TRADE SECRET 


PHYSICAL I/0 ~-- INITIALIZATION DATA FOR MAILBOXES 


TTLS 


IFIOM 


HEAD 


EVEN 
ZERO 
I1OTD 
ZERO 
OCT 

ZERO 
IOTD 


BSS 
aS S 


MARK 


PHYSICAL I/0 - 


X 


FAUCH+1,M5NCB 
O-SISTKL 
CONCH+2,MSNCB 
400000720201 
SPECH+1-/-M3NCB 
O-SPSTKL 


1 
1 


INITIALIZATION DATA FOR MAILBOXES 


FAULT CHANNEL LPW PROTOTYPE*OTIS 

FAULT CHANNEL DCW PROTOTYPE*OTIS 
CONNECT CHANNEL LPW PROTOTYPE*OTIS 

AND RESET STATUS PCWA 

SPECIAL STATUS CHANNEL LPW PROTO,.*OTIS 
SPECIAL STATUS CHANNEL DCW PROTO.*0TIS 


COPY OF X3MBXP ENTRY FOR CURRENT IOM*OTIS 
IOMH FOR CURRENT CONNECT *OTIS 
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RELEASED O1DEC80 
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DTSS TRADE SECRET PAGE 


CONTROL EXEC ENTRY =~ INTERRUPT RECOGNITION 

TTLS CONTROL EXEC ENTRY --— INTERRUPT RECOGNITION 
HEAD X 

INHIB SAVEsON 

IFIOM 


INTERRUPTS ARE RECEIVED BY HAVING THE PROCESSOR EXECUTE A “WIRED IN" 
XED OF A PAIR OF INSTRUCTIONS IN THE "INTERRUPT VECTOR" IN WORDS 
O-77¢(8) OF MEMORY. A SWITCH ON THE SCU CONTROLS WHICH PROCESSOR(S) 
MAY RECEIVE INTERRUPTS, AND ON DTSS ONLY THE CONTROL PROCESSOR MAY. 


WHILE THE HARDWARE DEFINES 32 INTERRUPT TYPES, 
FOUR. OTSS USES ONLY THESE FOUR. 


SOME SCUS SUPPORT ONLY 


*KeWARNING** SOME OLD DTSS DOCUMENTATION MAY STATE THAT DTSS USES 
TWO UNDEFINED INTERRUPT TYPES FOR "JOB" AND “CRASH” INTERRUPTS. 
NO LONGER TRUE. 


THIS IS 


INTERRUPTS ARE INTENDED PRIMARILY FOR COMMUNICATION BETWEEN THE IOM(S) 
AND THE CONTROL PROCESSOR. ODTSS ALSO USES THEM FOR INTER-PROCESSOR 
COMMUNICATION, 


THE FOUR KINDS OF INTERRUPTS IMPLEMENTED ON ALL HARDWARE ARE: 


1) SYSTEM INTERRUPTS -- IOM SIGNALLING SOME TERRIBLE ERROR 

2) INITIATE-TERMINATE INTERRUPTS -- IOM SIGNALLING COMPLETION OF I/0 

3) SPECIAL INTERRUPTS -— IOM SIGNALLING SOME CHANGE IN A DEVICEs SUCH 
AS A TAPE DRIVE BECOMMING READY. 

4) MARKER INTERRUPTS -- [LOM SIGNALLING PARTIAL COMPLETION OF I/0 


ON SYSTEMS WITH MULTIPLE ICOMS, THERE ARE SEPARATE INTERRUPT TYPES RESERVED 


FOR EACH IOM, 


MARKER INTERRUPTS COME FROM THE IOM ONLY WHEN A REQUEST IS MADE BY THE 
OPERATING SYSTEM FOR AN INTERRUPT AT SOME INTERMEDIATE POINT. 
MAKES SUCH REQUESTS AND THEREFORE NEVER EXPECTS MARKER INTERRUPTS FROM 
THE IOM, THE MARKER INTERRUPT TYPE IS USED BY DTSS FOR NON-CONTROL 


PROCESSORS TO SIGNAL THE CONTROL PROCESSOR THAT A JOB HAS ISSUED A MME AND 
FOR GENERALITY» THIS MECHANISM 


THAT THE PROCESSING QUEUE SHOULD BE EXAMINED. 
IS ALSO USED FOR NCONTROL TO CALL THE MAIN EXEC EVEN ON SINGLE PROCESSOR 
SYSTEMS. 


THERE ARE FOUR ROUTINES WHICH ARE CALLED AT INTERRUPT TIME WHEN INTERRUPTS 


OCCUR. THE DSTART ROUTINE INITIALIZES THE INTERRUPT VECTOR WITH THE 
APPROPRIATE STC1T/TRA PAIRS WHICH IT PICKS UP AS SYINT-2, ETC. 


DTSS NEVER 


94 


THE ROUTINE WHICH PROCESSES MARKER INTERRUPTS IS CALLED JINT AND IS LOCATED 


IN THE MMES SEGMENT INSTEAD OF HERE. 


NOTE: NO INTERRUPT ROUTINES SHOULD MODIFY THE MBA OR MBB UNLESS 
THEY RESTORE THEM BEFORE CALLING INTX. 
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2332 00 
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2252. 00 


003263 
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SYINT1 


TSOPOQ1 


SYRPT 
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DTSS EXECUTIVE CINSERT SEGMENT) 


SYSTEM INTERRUPTS 


DTSS TRADE SECRET 


INTERRUPT RECOGNITION 


THIS ROUTINE IS ENTERED ON IOM SYSTEM INTERRUPTS 
BY A HARDWARE XED OF THE INTERRUPT CELL CONTAINING: 


EVEN 
ae 
TRA 
NULL 
XED 
XED 
XED 
XED 
NULL 
SREG 
TSXO 
SBxXO 
NOP 
DABL 
RMCM 
ANAQ 
SMCM 


INHIB 


CKPT 
XED 
LDI 
L DX 
SXLO 
EAXO 
RPTX 
LDAC 
TZE 
STXO 
SXL 
STA 
L DX 


MTASK 


GETD 
LDA 
TSXO 
LDA 
STA 
LDA 
MTQA 
TSXO 
LDX 
LDAQ 
CWL 
TNZ 
TSXO 
LDA 


NESICO,DIC 
SYINT 


SYINT1 
SYINT1 
SYINT1 
SYINT1 


IREGT,AD 
r+ 


SYINT+1,DU 


O,DU 


XS3MEM 
X$DABL 
XSMEM 
RESTORE 
14 
SCKPT 


SAVE THE INSTRUCTION COUNTER 
AND BREAK XED | 
SYSTEM INTERRUPT ENTRY POINT 
ENTRY FOR IOMHO*OTIS 

IOM#1*0OTIS 

IOMA2* OTIS 

IOMA3*0TIS 


SAVE REGISTERS*OTIS 

BREAK XED*OTIS 

COMPUTE IOMA IN XO*OTIS 

SPACE FOR LCPR INST. ON 66/X7 
DISABLE THE INTERRUPTS 

READ MASK FROM MEMORY CONTROLLER 

DISABLE SPEC~INIT~TERM~MARK 

SET NEW MASK 


MSOVMSK+MSMMODE,DL MASK OFF OVERFLOW FAULTS 


X*eXS$SISTP2O 


NIOS 


PUT THIS IOM*S SYSTEM FAULT BASE IN X*0TIS 
SAVE THE IOM# TEMPORARILY *0TIS 


S2*MSRTAL+MSCBIT+MSTNZ MAKE RPT LOOK AT SYSTEM FAULT AREA 


al 

OX 
INTX 
INTMP 
Xs INTMP 
INTMP+1 
T-O0,/6U 


SYLOG/INTMP+1 


2*NBUG 

2 DU 
ASGETNB 
INTMP+1 
1,7 
SYLOG,DL 


QSMTQA 
T-0/0U 
SYLIM 
INTMP+1 
SYRET 
NIO 
INTMP+1 


LOOK FOR ALL NON-ZERO ENTRIES 
GET AN ENTRY 

ZERO MEANS NO MORE INTERRUPTS 
SAVE RPTX UPPER 

SAVE POINTER TO CURRENT ENTRY 
SAVE THE SYSTEM FAULT CODE 
SPPML 

CREATE A TASK TO LOG IT 


CALL TO ENTRY THAT WILL NOT BUG THE LIST ELEMENT 


PARAMETER IS INTMP+14 

SAVE IT 

RESTART ADDRESS 

QUEUE TASK TO START AT SYLOG 
CALL SUBROUTINE TO QUEUE TASK 
SPPML 

IS THIS A DATA CHANNEL? 
COMPARE TO THE CHANNEL SPECIFIED 
NO-~ KEEP LOOKING AT FAULTS 
GO SET CHANNEL BASE *OTIS 
ELSE GET THE FAULT WORD 
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2956 


2950 
2958 
2959 
2960 
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2962 
2905 


2964 


2965 
2966 
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SYRET 


SYLOG 


SYIN2 


IOCQW 


CONTROL EXEC ENTRY -= 


ANA 
ALS 
ADA 
LDQ 
C ANQ 
TZE 
ERSQ 
LXL 
TZE 
LDQ 
STQ 
LDQ 
$TQ 
LDA 
MTQA 
TSXO 
LdxO 
CANXO 
TZE 
LXL 
TRA 
NULL 
LOG 
oe 
TSX 
BCI 


ARG 
REL 
TSXO 
TRA 
OCT 


=0777-,DU 


2 
NIOS 


BSIOBSY,DL 
PSSTAT/AU 


SYRET 


PESTAT,AU 
T/Q$EBUSY+P$Q AU 
SZOPFer* 


IOCcQw 


ISQWORD,T 
ISD0CW,T 
ISDCWWD-T 
ISITERM,DL 


QEMTQAA 
INTMP 


=0776090-DU 


INTX 


Xe INTMP 


SYRPT 


CIOM INTRPT),CIENT~AT) 


ISFLOG 


O,-ISLOG 
2710M INTRPT 


IENTsT 


RELEASE 


ASREL 
SEXIT 


020020770000 


INTERRUPT RECOGNITION 
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MASK TO CHANNEL NUMBER 

SHIFT TO ALLOW INDEXING OF PS TABLES 
ADD IN BASE *OTIS 

WERE WE EXPECTING AN INTERRUPT? 
CHECK THE CHANNEL STATUS 

NO-= SPURIOUS INFORMATION 

YESe~= TURN OFF THE BDT 

GET THE ASSOCIATED TASK 

NO TASK??? 

GIVE LOC TYPE RETURN 


16AUG74 


AND AN UNTOUCHED DCW RESIDUE 


AND QUEUE UP A TASK 

TO FINISH UP THE I/0 

CALL SUBROUTINE TO QUEUE TASK 

GET THE RPTX TALLY 

ARE WE REALLY FINISHED? 

ZERO MEANS NO MORE INTERRUPTS © 

ELSE RESTORE POINTER TO CURRENT ENTRY 

AND LOOK SOME MORE 

TASK TO LOG SYSTEM INTERRUPT 

LOG IT 

DON'T INHIBIT DEVICE OUTPUT 

CAN BE CALLED FROM THE OUTSIDE WORLD 
TEXT ARGUMENT 


YES, POINT TO IT 
THE LIST ELEMENT 


AND GO AWAY 


DEVICE ATTNsz IOC ERROR FAKE QUEUEWORD 
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ITINT 
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TSOPO2 
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CONTROL EXEC ENTRY -- 


EJECT 


NULL 
LDA 
ANQ 
MPY 
QLs 
STA 
TRA 


BSS 


DTSS TRADE SECRET 


INTERRUPT RECOGNITION 


PUTS CHANNEL BASE IN NIOSCUPPER) *OTIS 


NIOS GET SAVED IOM# *OTIS 
3/D0L MASK OFF *OTIS 
CHTLENS DL MULTIPLY BY LEN *OTIS 
i « PUT IN UPPER *OTIS 
NIOS SAVE *OTIS 

0-0 RETURN *OTIS 
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INITIATE*TERMINATE INTERRUPTS 


INHIB 
EVEN 
SGI 
TRA 
NULL 
XED 
XED 
XED 
XED 
NULL 
SREG 
TSXO 
SBXO 
NOP 
DABL 
RMCM 
ANAQ 
SMCM 
LD] 
INHIB 
SXLo 
LXL 
S TX 
LDAC 
STA 
TSXO 
Ze 
£ AX 
TSXO 
ADX 


SAVE7s0ON 

NSICO-DIC SAVE WHERE WE WERE 

x +4 AND BREAK THE XED 
ITINT1 ENTRY FOR IOM#O*OTIS 
ITINT1 IOMH#1*OTIS 

ITINT1 IOMH2*OTIS 

ITINT1 LOMA3*OTIS 
IRESTsAD SAVE REGISTERS*OTIS 


x +4 BREAK XED*OTIS 
ITINT+1-DU COMPUTE IOMA IN XO*OTIS 


0, DU SPACE FOR LCPR INST. ON 66/X7 
DISABLE INTERRUPTS 

XSMEM READ MASK FROM MEMORY CONTROLLER 

XSDABL DISABLE SPEC~INIT-~TERM=-MARK 

XZMEM SET NEW MASK 


MSOVMSK*MSMMODE,DL MASK OFF OVERFLOW FAULTS 
RESTORE 


NIOS SAVE IOM# *OTIS 

XeX$STTSP20 PUT THIS IOM"S SW BASE IN X*OTIS 

Xe INTMP WHY DO YOU THINK THEY CALL IT RELY?*OTIS 
XSIMW+12-0 GET TERMINATE IMW FOR THIS IOM*OTIS 
ZS1MiV SAVE FOR IMWCK ROUTINE 

ZSIMWCK CONVERT TO CHANNEL NUMBER 

INTX ZERO MEANS NO MORE INTERRUPTS 

P20 QU PUT PUB TIMES FOUR IN P 

NIO BET CHANNEL BASE FOR THIS I0M *OTIS 
PyNIOS COMPLETE CHANNEL PTR *OTIS 


COUNT CHANNEL BUSY TIME 


SZN 
TZE 
GTIM 
TSXO 


XS1IOSTBsP DID WE “SET THE TIMER? 

ITIN1 NO» DON'T COUNT TIME 
GET TIME SINCE BOOTLOAD 

XSGTIM RETURN TIMER UNITS IN A 
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ae 3018 
R. +3019 
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ae -~+3023 
Re. +3024 
sx “F3025 
Res 3026 
ae 3027 
X. 3028 
Rue 3029 
R. 3030 
eu re OS] 
ee “PS SS2 
3033 
on 3034 
Xe 5055 
R. 3036 
Xe 3037 
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Xe S039 
cay “FSU49 
Re 3041 
a 3042 
a 3043 
Re 3044 
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o- 3046 
wa THSOGT 
nn 3048 
Rs 3049 
3050 
Xe 
Xe 50517 
SUD< 
3053 
ae 3054 
Re 3055 
ee 3056 
S057 
Xe 
Ra 
R. 
Xe 


ITIN1 


ITINS 


ITSTA 
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SBA 
ASA 
STZ 
EAQ 
S$ BQ 
NULL 
QRL 
LDA 
EAX 
ADX 
CANA 
TNZ 
LDA 
CANA 
TZE 
LDA 
STA 
She 
NULL 
LDA 
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XSIOSTB«P 
XSIOUTBsP 
XSIOSTBsP 
O-P 

NIOS 


1 
BSSIGN,DU 
Xe0-QU 

Xs INTMP 
QO-xX 

ITINS 


BESSPIOPsDL 


PSSTATsP 
ITSTA 
ISFKOKS 
O+X 

17x 


BSIOBSY-DL 


PSSTAT*/P 
ITSPR 
PSSTAT*sP 


T¢QSBBUSY+PS3Q2P 


SZOPFe,* 
0X 

ITMSK 
=020,,DU 
27DU 

+2 
=020,DU 
ITSQWORD,T 
1X 
ISDCWWD,T 


ISITERM,DL 


QEMTQA 
ZSIMWC1 


1 
INTMP 
Te0/DU 


ITLG1/INTMP 


2 eNBUG 
20DU 
ASGETNB 
INTMP 
1T 
ITLG1,D0L 


QSMTQA 
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SUBTRACT START FROM CURRENT 

MAINTAIN TOTAL BUSY TIME 

CLEAR TIMER IN CASE OF SPURIOUS INTERRUPT 
RESTORE Q (BE PARANOID) 

REMOVE BASE *OTIS 


CONVERT TO RELATIVE STATUS ADDRESS 
GET IOM SYNC BIT 

*OTIS 

MAKE STATUS ADDRESS ABSOLUTE*OTIS 
DID WE GET STATUS?*0TIS 

YES, TAKE IT AWAY 

WATCH OUT FOR SPECIAL QPS 

(SOME DON'T RETURN STATUS) 
EVERYONE ELSE SHOULD HAVE STATUS 
PICK UP A FAKE STATUS RETURN 

SAVE IT *ROBINSON 

x*ROBINSON 


WERE WE EXPECTING? 

CHECK CHANNEL STATE 

NO-- LOG SPURIOUS INTERRUPT 
ELSE TURN OFF THE BIT 

GET THE ASSOCIATED TASK 

NO TASK??? 

GET THE STATUS WORD*OTIS 

MASK OUT ODD/EVEN, MARKER, ETC, 
FUDGE TO LOOK LIKE IOC INITIATE 
WERE WE RIGHT? 

YES, IT*S AN INITIATE 

NO» SO MAKE IT A TERMINATE 

SAVE AS IOC QUEUE WORD 

ALSO THE DCW RESIDUE*OTIS 
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(TO AVOID CARRY) 


AND QUEUE A TASK FOR THE INTERRUPT 


CALL SUBROUTINE TO QUEUE TASK 
LOOP FOR ALL IMW BITS 


CHANNEL RETURNED NO STATUS 
PUT PUB NUMBER IN QU 

SAVE IT 

SPPML 

CREATE A TASK TO LOG IT 


CALL TO ENTRY THAT WILL NOT BUG THE LIST ELEMENT 
PARAMETER IS INTMP 

SAVE IT 

RESTART ADDRESS 

QUEUE TASK TO START AT ITLG1 

CALL SUBROUTINE TO QUEUE TASK 
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Q000 14 
7100 OO 
003475 
7720 90 
7569 J0 
2249 03 
003500 
903500 
2500005 
7000 00 
2350 900 
7550 14 
e590 OF 
003505 
7000 900 
224) 03 
7100 00 
9035170 
4500 00 
7009 00 


624764513146 
646220314563 


900001 
003.344 


QO000 14 
7100 O00 
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3058 
3059 
3060 


3061 
3062 
aAUGS 
3064 
3065 
3066 


3069 
3070 


DTSS EXECUTIVE 


ITLG1 


ITSPR 


LSP 


LEGG? 


ITMSK 


CINSERT SEGMENT) 


CONTROL EXEC ENTRY -— 


L DX 
TRA 
NULL 
LOG 
STZ 
TSX 
BCT 


ARG 
TRA 
NULL 
QRL 
STaQ 
LDX 
MTASK 
GETD 
LDA 
TSXO 
LDA 
STA 
LDA 
MTQA 
TSXO 
LDX 
TRA 
LOG 
Se ies 
TS*X 
BCI 


ARG 
TRA 
OCT 


TeO-DU 
ZSIMWC1 


(NO STATUS)/-CIENT-T) 


ISFLOG 
O,I$LOG 
2/NO0 STATUS 


IENTsT 
SYIN2 


1 

INTMP 
T-O0,DU 
ITLG2,INTMP 
2/NBUG 

27DU 
ASGETNSB 
INTMP 

12T 
ITLG2-,DL 


QSEMTQA 
T0000 
ZSIMWC4 


ILBFLOG 
O,ISL0G 
Cr SPURIOUS INT 


TENT~T 
SYIN2 
(U7TIO27TC TTT 


SPPML 


DTSS TRADE SECRET 


INTERRUPT RECOGNITION 


CONTINUE CHECKING IMW 
LOG NO STATUS 


DON'T 


MESSAGE AND PUB NUMBER 
INHIBIT DEVICE OUTPUT 
CAN BE CALLED FROM THE OUTSIDE WORLD 


TEXT ARGUMENT 


YES» 
VANISH 

TASK TO LOG 
PUT CHANNEL 
SAVE [T 
SPPML 


POINT TO IT 


SPURIOUS INTERRUPT 
NUMBER IN QU 


CREATE A TASK TO LOG IT 
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RELEASED O1DEC80 


C170CT76) 


CALL TO ENTRY THAT WILL NOT BUG THE LIST ELEMENT 


PARAMETER IS 


SAVE IT 


INTMP 


RESTART ADDRESS 
QUEUE TASK TO START AT ITLG2 
CALL SUBROUTINE TO QUEUE TASK 


SPPML 


CONTINUE CHECKING THE IMW 
(SPURIOUS INT)-CIENT,T) 


DON'T 


INHIBIT DEVICE OUTPUT 
CAN BE CALLED FROM THE OUTSIDE WORLD 


TEXT ARGUMENT 


YES, 
EVAPORATE 


MASK TO REMOVE ODD/EVEN,s 


POINT TO <1t 


MARKER» 


COSNOV?77) 


O O @ 


QO oO 


CO: “O. as © 
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003517 


003520 
003521 


003522 
UG3523 
003524 
003525 
003526 
003527 
003530 
003531 
003532 
003533 
003534 
005555 
003536 
O03 537 
003540 
003541 
003542 
003543 
003544 
003545 
003546 
003547 
003550 
COS557 
903552 
003553 
003554 
003555 
003556 
003557 
003560 
003561 


003562 
003563 
003564 


003565 
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000000011207 


000000 
003522 


003562 
003562 
003562 
003562 
003562 
005562 
003562 
003562 
003562 
003562 
003562 
003562 
003562 
OC S567 
003562 
003562 
003562 
003562 
003562 
003562 
003562 
003562 
003562 
003562 
003562 
003562 
003562 
003562 
003562 
003562 
C0356-2 
003562 


000000 
003564 
000000 


000000 


003520 
5542 55 
7102 OO 


003522 


7i?2 00 
{22 00 
7172 00 
1a UG 
7172 OO 


iV OO: 


7172 OO 
Cite: BO 
fA7 2. OO 
7172 O00 
7172 OO 
ti¢e OO 
(142 00 
7172 O00 
7172 O00 
74172 O00 
7172 OO 
7172 00 
7172 QO 
Fate. OO 
(172 BO 
fT F 2: 0G 
7172 QO 
7172 00 
F172 2-00 
PAte- UD 
irre OO 
7172 O00 
7172 OO 
7172 O00 
C12 00 
(i¢2¢e O00 


003562 
003562 
(332 33 
7002 00 
0112 03 
003565 
e552 00 
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3071 
3072 
5075 
3074 
3075 


3076 
3077 
3078 
3079 
3080 
3081 
3082 


3083 
3084 
3085 
3086 
3087 
3088 
3089 


DTSS EXECUTIVE CINSERT SEGMENT) 


QINT 


QINT1 


TSOPO? 


DTSS TRADE SECRET 
CONTROL EXEC ENTRY ~=- INTERRUPT RECOGNITION 
EJECT 


RANDOMCUNDEFINED) INTERRUPT TYPES COME HERE. 


INHIB SAVEsON 

EVEN WORDPATIR 

STC1 NSICO-DIC STACK STATE 

TRA x +] ENTER ENTRY VECTOR 
NULL ENTRY VECTOR FOR INTERRUPTS 0O..31 
DUP 1-32 ENTRY VECTOR 

XED QINT1 

XED QINT4 

XED QINT4 

AED QINT1 

XED QINT1 

XED QINT? 

XED QINT1 

XED QINT14 

XED QINT1 

XED QINT1 

XED QINT1 

XED QINnTI 

XED QINT1 

XED QINT) 

XED QINT1 

XED QINT4 

XED QINT4 

XED QINT1 

XED QINT1 

XED QINT1 

XED QINT1 

XED QINT1 

XED QINT1 

XED QINT4 

XED QINT4 

XE D QINT1 

XED QINT1 

XED QINT1 

XED QINT1 

XED QINT1 

XED QINT4 

XED QINT1 

EVEN 

NULL 

SREG IREGTsAD STACK REGISTERS 
TSXO * +7 REMEMBER ENTRY 

NOP O-DU SPACE FOR LCPR INST. ON 66/X7 
DABL DISABLE FURTHER INTERRUPTS 
RMCM XSMEM READ MASK FROM MEMORY CONTROLLER 
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RELEASED 


01DEC80 


CO9DEC?79) 
CO9DEC79) 
CO9DEC79] 
CO9DEC79) 
CO9DEC7T93 


CO9DEC?9II 
CO9DEC79) 
CO9DEC79I) 
CO9DEC79) 
CO9DECTI J 
CO9DEC79I 
CO9DEC 793 


CO9DEC79I 
CO9DEC79) 
CO9DEC7T9II 
CO9DEC79) 
CO9DEC7T9I 
CO9DEC794 
CO9DEC79I 


CO) 


» O O 


O 


OO: “Or 705 WO so «O° +O oO & © 


OO: “Or 1O> Oe “Or 


O 
© PIo 09/03/81 093083.55 DTSS EXECUTIVE CINSERT SEGMENT) DTSS TRADE SECRET PAGE 101 
X CONTROL EXEC ENTRY -~ INTERRUPT RECOGNITION RELEASED O1DEC80 
0 003566 000000 3772 Q0 x. ANAQ XSDABL DISABLE SPEC~INIT~TERM~MARK 
003567 Q00000 5532 00 xX. SMCM XSMEM SET NEW MASK | 
O 003570 004200 6342 Q7 .. 3090 LDI MEOVMSK*t+MSMMODEsDL MASK OFF OVERFLOW FAULTS CO9DEC79) 
3091 INHIB RESTORE OK NOW CO9DEC79) 
003571 777777 6350 10 .. 3092 EAA -1,0 GET ENTRY POINT CO9DEC?79)— 
O 003572 003522 1350 03 R. 3093 SBLA QINT,DU CONVERT TO INTERRUPT ADDRESS CO9DEC79) 
003573 000001 7710 00 .. 3094 ARL 1 CONVERT TO INTERRUT NUMBER CO9DEC794 
003574 003722 7550 00 R. 3095 STA INTMP SAVE FOR MESSAGE CO9DEC79) 
O 003575 000000 2240 03 .. 3096 L DX T-0-0U SPPML CO9DEC?79) 
003576 3097 MTASK QINT2,/INTMP CREATE TASK TO LOG IT CO9DEC79) 
003576 GETD 2 eNBUG 
C 003576 000002 2350 03... LDA 2eDU | 
003577 000000 7000 00 x. TSXO ASGETNB CALL TO ENTRY THAT WILL NOT BUG THE LIST ELEMENT 
003600 003722 2350 00 R. LDA INTMP PARAMETER IS INTMP 
O 003601 000001 7550 14 .. STA 1-T SAVE IT 
003602 003606 2350 O7 R. LDA QINT2,DL RESTART ADDRESS 
003603 MTQA QUEUE TASK TO START AT QINT2 
‘eo 003603 000000 7000 O00 x. TSXO QEMTQA CALL SUBROUTINE TO QUEUE TASK 
003604 900000 2240 03 .. LDX T/O-DU SPPML 
003605 000000 7100 QO xX. 5098 TRA INTX AND EVAPORATE CO9DEC79I 
CO 3099 CO9DEC79I 
003606 3100 QINT2 NULL TASK TO LOG RANDOM INTERRUPT CO9DEC79I 
003606 31017 LOG CINTERRUPT),/CIENT,T) CO9DEC79) 
O 003606 000000 4500 00 xX. STZ IBFLOG DON'T INHIBIT DEVICE OUTPUT: 
003607 000000 7000 00 x. TSX O-ISLOG CAN BE CALLED FROM THE OUTSIDE WORLD 
003610 314563255151 a2 BCI 2 INTERRUPT TEXT ARGUMENT 
O 003611 644763202020 
003612 000001 0000 14 .. ARG IENT,T YES POINT TO IT 
003613 003344 7100 00 R, 3102 TRA SYIN2 EVAPORATE CO9DEC79I 
O 
O 
O 
O 
O 
s 
O 
O 


O OO O-| & 


OQ 


} 
ya 


O- OF 


oO “@> %O ~o 20: 2G “O “G 2 OO oo © wo: 
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003614 
003615 


003616 
003617 
003620 
003621 


003622 
003623 
003624 
Q03625 


003626 
003627 
003630 
003631 


003632 
003633 
003534 
003635 
003636 
003637 
003640 
003641 
003642 


903643 
003044 
003545 
003646 
Q03647 
003650 
003651 
003652 
003653 
003654 
003655 
003656 
003657 
003660 


003661 
003462 
003663 
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000000 
003616 


003622 
003622 
003622 
003622 


000000 
003624 
003617 
OCO000 


Q00000 
000000 
000000 
004200 


9003355 
000000 
003722 
001374 
000000 
0000900 
000000 
000030 
003661 


003722 
CCRILE 
000020 
003722 
oS 
OOS722 
000000 
000000 
003.647 
000011 
400000 
000000 
000000 
003447 


000000 
003347 
003355 


003614 
5542 55 
7102 00 

003616 
7172 OO 
1372" 00 
7172 90 
7172 QO 

003622 
(35:55 


4400 00 


7220 10 > 


7420 OO 
0340 10 
7550 90 
7000 09 
6000 00 
1160 03 
6910 OO 


eee: 00-2 


6210 12 
9620 03 
742090 O00 
0610 03 
10710 O00 
6030 00 
0340 117 
6000 00 
7710 OO 
2360 Q3 
7720 O01 
2560 00 
7100 O00 


6270 02 
7000 O00 
0670 OO 
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oOPINT 


SPINT1 


T50:PU5 


SPIN6 


SPINS 


CONTROL EXEC ENTRY -~ 


EJECT 


DTSS EXECUTIVE CINSERT SEGMENT) 


SPECIAL INTERRUPT 


INHIB 


EVEN 
STC1 
TRA 
NULL 
XED 
XED 
X£D 
XED 
NULL 
SREG 
TSXO 
$BXO 
NOP 
DABL 
RMCM 
ANAQ 
SMCM 
LDI 


INHIB 


SXLO 
LAL 
STX 
LDAC 
STA 
TSXO 
TZE 
CMPQ 
TNZ 


LD Xx 
EAX 
ADX 
STX 
ADX 
CMPX 
TRC 
LOAC 
ELE 
ARL 
LDQ 
QRL 
ORSQ 
TRA 


EAX 
TSXO 
ADX 


SAVE/ON 


NSICO-OIC 
x + 


SPINT1 
SPINT1 
SPINT1 
SPINT1 


IREGTsAD 
x+ 4 


SPINT+14DU 


O, DU 


XSMEM 
XSDABL 
XSMEM 


MSOVMSK+#+MEMMODE., 


RESTORE 
NIOS 
YeXbSPSTP2O0 
Ye INTMP 
XSIMWt+2870 
ZS1MW 
ZLIMWCK 
INTX 
SPECH,DU 
SPINS 


Ye INTMP 
Xen717Y 
Y/SPSTKL,DU 
Yrs INTMP 
Xe1,/,DU 

Xo INTMP 
ZSIMWC1 

D+ X 

SPIN6 

9 
=0400000,DU 
O-AU 

ZSIMW 

SPIN6 
$70/QU 


NIO 
S/NIOS 


DTSS TRADE SECRET 


INTERRUPT RECOGNITION 


SAVE WHERE WE WERE 


ENTRY FOR IOMHO*OTIS 
1OMH1*0TIS 
IOMA2x*OTIS 
IOMH3*0TIS 


SAVE REGISTERS*0OTIS 

BREAK XED*OTIS 

COMPUTE IOM# IN XO*OTIS 

SPACE FOR LCPR INST. ON 66/X7 
DISABLE THE INTERRUPTS 

READ MASK FROM MEMORY CONTROLLER 
DISABLE SPEC~INIT-~TERM-MARK 

SET NEW MASK 

DL MASK OFF OVERFLOW FAULTS 


SAVE IOM# *OTIS 

PUT THIS IOM"S SPECIAL SW BASE IN X*OTIS 
FOR SAFEKEEPING*OTIS 

GET SPECIAL IMW FOR THIS IOM*OTIS 

SAVE FOR THE IMW CONVERSION ROUTINE 
CONVERT IT TO CHANNEL NUMBER 

ZERO MEANS NO MORE INTERRUPTS 

IS THIS FROM THE SPECIAL STATUS CHANNEL ?- 
NO» CONTINUE NORMALLY 


RESTORE*OTIS 

X POINTS TO SPECIAL STATUS STACK BASE*OTIS 
Y POINTS TO LAST ENTRY*OTIS 

SAVE FOR TEST*OTIS 

INCREMENT POINTER 

BEYOND STACK?*0TIS 

YES, GET THE REST OF THE SPECIALS 

GET THE NEXT POSSIBLE SPECIAL 

NONE HERE» CONTINUE 

MOVE CHANNEL # TO AU 

SET A BIT TO SHIFT RIGHT 

MOVE BIT TO THE RIGHT PLACE FOR AN IMW 


PRETEND THE SPECIAL CAME IN ON THE RIGHT CHANNEL 


CONTINUE 


GET 4*CH *OTIS 
GET CHANNEL BASE FOR THIS I0M *OTIS 
COMPLETE CHANNEL LOC *OTIS 


RELEASED O1DEC80 


CO9DEC?79) 


COTMAY?794 


CO1DEC80) 
COVDEC 80) 
CO1DEC80I 
COIDEC8OI 
CO1DEC 80) 
CO1DEC 80) 
CO1DEC8OI 
CO1DEC80I 
C30DEC76) 


CO1DECs&OI 
CO1DEC 803 
CO1DEC80) 
CO01dEC80) 


CO1DEC80) 
CO1DEC80) 
COTDEC8OI 
CO1DEC80) 


CO1DEC80) 


C21APR77) 


C01 DEC80) 
CO1DEC8OI 
CO1DEC 804) 


CO & 


O 2 “2 


( > © 


Oy 4 Gy SE 


C) 


O Os “Os 3: Or ©. GO © OF 6G. Oo 6. GO © OG © Go oS eG 


PIO 


003664 


003665 
003666 
003667 
003670 
003671 
003472 
003673 
003674 
003675 
J003676 
003677 
003700 
003.701 
003702 


003203 
003.704 
003705 
003706 
003707 
003.710 
003711 
UOS Ti 
003.213 


003714 
003715 
003716 
003717 


003720 
003721 


003724 
003725 
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X 
000000 


000000 
003672 
000000 
001524 
003665 
003-700 
000000 
001546 
000000 
Q0000e 
003476 
900000 
003705 
000000 


900090 
003.711 
400000 
000000 
000000 
003714 
090000 
003:700 
000000 


0C0017 
000000 
000001 
C0000 


000000 
003711 


000010 
000077 


7000 00 
7470 14 
eau. Ie 
GOS 20 
7000 00 
7100 90 


DOS 22 
00322 
000000 
000000 
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SPIN 


SPIN2 


SPING 


SPINS 


INTMP 
SYLIM 


* 
ENDIOM 


CONTROL EXEC ENTRY ~~ 


EAA 


LDX 
FPL 
EAA 
TSXO 
TRA 
TNZ 
EAX 
TSXO 
EAR 
QRL 
TRA 
LDX 
TZE 
ERSX 
MTQ 
TSXO 
TRA 
L DX 
ORSX 
LXL 
TNZ 
EXE 
TNZ 
TRA 
GETD 
LDA 
TSXO 
STX 
LDA 
MTQA 
TSXO 
TRA 


EVEN 
BSS 

ZERO 
ZERO 


MARK 


DTSS EXECUTIVE CINSERT SEGMENT) 


O-S 


S*PS$CHANsAU 
w+4 

O-S 
ISCHLOC 
x—G 

SPIN 
Pe0-AU 
ISIOMS 

Ory 

2 

ITSP 1 
TeUSSPEC,S 
SPIN2 
TAUSSPEC-.S 


QEMTAQ 
SPING 
XeBSTOSPC,D0U 
XeUSSTATS*S 
Xe,USSPEC*S 
SPINS 
S*eUSTHANSS 
SPIN] 
ZSIMWC1 
ISDCwWtt 
ISDCW+1,DU 
ASGET 

SI SDEVAT 
USSPEC,S 


QEMTQA 
SPIN4 


g 
SFPCHN 
BNCHAN~1 


DTSS TRADE SECRET 


INTERRUPT RECOGNITION 


INITIALIZE TO AU *OTIS 


GET ENTTRY FOR THIS DEVICE *OTIS 
CONTINUE IF NO CROSSBARING *OTIS 
ELSE PUT PTR TO NEW PUB IN AU *OTIS 
GET THE PUB *OTIS 

TRY AGAIN *OTIS 

FOUND ONE*4GO CHECK IT *OTIS 

PUT ENTRY IN XP *OTIS 

RETREIVE 4*CH *OTIS 

PUT IN QU *OTIS 

PUT CHANNEL IN QU 

AND LOG SPURIOUS INTERRUPT 

GET TASK FOR THIS DEVICE 

NO SUCH TASK 

ERASE THE TASK 

AND QUEUE IT UP 

GO QUEUE THE TASK 

CHECK OTHER DEVICES - 

GET BIT SAYNING SPECIAL ARRIVED 
SET IT 


CHECK FOR EXEC TASK FOR BESPECIALLED DEVICE 


YES~-~- QUEUE IT 

GET NEXT DEVICE ON PUB 
CONTINUE IF MORE 

ELSE CONTINUE TO NEXT PUB 
GET A LIST ELEMENT FOR TASK 


SAVE THE DEVICE NUMBER 

GET THE TASK START ADDRESS 
AND QUEUE IT 

CALL SUBROUTINE TO QUEUE TASK 
CONTINUE 


TEMPORARY FOR INTERRUPT HANDLER 
LOWER LIMIT FOR DATA CHANNELS *OTIS 
UPPER LIMIT *OTIS 
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RELEASED O1DEC80 


CO1DEC80I 
CO1DEC80I 
C01d0EC80) 
CO1DEC80I 
CO1DEC80I 
CO1DEC80) 
CO1DEC80) 
CO1DEC80) 
CO1DEC804I 
CO1DEC80I 
CO1DEC8OI 


COSNOV?77) 


COSNOV?77) 


CO1DEC80) 
CO1DEC803 


CO9DEC79) 


Gs. 6 Oo SG 
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3189 
003726 5190 
3191 
S192 
S495 
3194 
3195 
3196 
3197 
S198 
3199 
3200 
3201 


3203 
3204 
5205 
3206 
3207 
3208 
5209 
3210 
3211 
Sele 
S213 
3214 
3215 
3216 
S2y7 
S20 
Sele 
3220 
3221 
3222 
S220 
3224 
5225 
3226 
3227 
3228 
5009 
3230 
S251 
bese 
Se a 
3234 
3235 
ae, 
3237 
3238 
3239 
3240 
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DTSS EXECUTIVE CINSERT SEGMENT) DTSS TRADE SECRET 
CONTROL EXEC ENTRY -~ INTERRUPT RECOGNITION 
EJECT 
IFIOC 
* 
* 
* 
* COUNTER PARITY INTERRUPTS 
* 
* THIS ROUTINE IS ENTERED ON A COUNTER PARITY INTERRUPT 
* BY A HARDWARE XED OF THE INTERRUPT CELL CONTAINING: 
* 
EVEN 
S76) NdbICG,DIC SAVE IC/IR 
TRA CPINT GO TO ROUTINE 
CPINT NULL 
SREG IREGT-AD SAVE REGISTERS 
DABL DISABLE INTERRUPTS 
CKPT 11 NOTE COUNTER PARITY INTERRUPT 
L DX TAO0,0U SPPML 
INHIB RESTORE 
GETD 2 GET A BLOCK FOR QUEUEING 
Lda PMBX+7 SAVE CP INT DATA WORD 
STA 1,7 ° 
LDA CPI7,/0L GET ADDRESS OF TASK 
MTQA QUEUE IT 
AOS CPN COUNT COUNTER PARITY INTERRUPTS 
TRA INTX EXIT 
x 
* LOG COUNTER PARITY INTERRUPT 
* 
CP11 NULL 
LOG C1OC CTR PAR) 4 (14T) 
REL RELEASE LIST ELEMENT 
TRA BEXIT 
CPN OCT 0 TOTAL COUNT OF CP INTS 
INHIB SAVE7ON 
ik 
* SPECIAL INTERRUPTS 
x 
* THIS ROUTINE GETS CONTROL ON A SPECIAL INTERRUPT BY 
* A HARDWARE XED OF THE INTERRUPT CELL CONTAINING: 
* 
EVEN 
SiC) NSBICO-DIC SAVE IC/IR 
TRA SINT BREAK XED 
SINT NULL 
SREG IREGT »AD SAVE REGISTERS 
L DX J23-DU FLAG TYPE OF INTERRUPT 
TRA INT JOIN COMMON ROUTINE 


INITIATE INTERRUPTS 
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CO9DEC79I 
CO9DEC79) 


COTMAY79] 


CO9DEC?TII 


C29JAN77) 


COmmAY79] 


CO9DEC79) 


Or. HOR uO Or 3G 2s Oe Sy Foe «O 
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O PIO 09/03/81 09:08:53 DTSS EXECUTIVE CINSERT SEGMENT) DTSS TRADE SECRET 
X CONTROL EXEC ENTRY ~~ INTERRUPT RECOGNITION 
O 3241 * THIS ROUTINE RECEIVES CONTROL ON AN INITIATE INTERRUPT BY 
3242 * A HARDWARE XED OF THE INTERRUPT CELL CONTAINING: 
3243 * 
O 3244 EVEN 
3245 STC1 NSICO,/DIC SAVE IC/IR 
C) 3246 TRA IINT BREAK XED 
3247 PINT NULL 
3248 SREG IREGT,AD SAVE REGISTERS 
oe 3249 L DX Jo17DdU FLAG TYPE OF INTERRUPT 
3250 TRA INT JOIN COMMON ROUTINE 
3251 * 
OC 3252 * TERMINATE INTERRUPTS 
$253 * 
3254 * THIS ROUTINE GETS CONTROL ON A TERMINATE INTERRUPT BY 
O 32°55 * A HARDWARE XED OF THE INTERRUPT CELL CONTAINING: 
3256 * 
3257 EVEN 
e) 3258 STC1 NSICO,DIC SAVE IC/IR 
3259 TRA TINT BREAK XED 
$260 TINT NULL 
CO 3261 SREG IREGT,/AD SAVE REGISTERS 
3262 L DX Jo2eDU | FLAG TYPE OF INTERRUPT 
3263 REM FALL THROUGH TO COMMON ROUTINE 
O 3264 * 
3265 * COMMON INTERRUPT ROUTINE 
3266 * 
oO 3267 * REGISTER USAGE 
3268 * 
3269 * J Teer FOR INIT» TERM, SPECIAL 
‘a 3270 * S INDEX TO QUEUE TABLE (0-15) 
3271 * 0 CORE ADDRESS OF QUEUE ENTRY 
3272 * 
QO 3273 INT NULL INTERRUPT TYPE IN XR —- J 
3274 DABL MASK OFF INTERRUPTS 
3275 LOI MEOVMSK+MSEMMODE,DL MASK OFF OVERFLOW FAULTS 
OC S276 INHIB RESTORE INTERRUPTS ARE MASKED OFF 
3277 INT1 NULL SERVICE NEXT INTERRUPT 
3278 L DX T/O-DU SPPML 
O 3279 LDX SePMBX+3J GET MY QUEUE COUNTER 
3280 SZN IPIKsJ* CHECK LAST INTERRUPT 
3231 TPL INTG IF PICKED UPs NO PROBLEMS 
O 3282 GETD 2 BURST OF INTERRUPTS 
3283 STX JeleT SAVE TYPE OF INTERRUPTS 
3284 LDA INT2 DL ROUTINE TO LOG OCCURANCE 
oe) 3285 MTQA QUEUE IT UP 
3286 TRA INT5 SKIP CHECK FOR EMPTY QUEUE 
3287 INT2 NULL TASK TO LOG BURST OF INTERRUPTS 
O 3288 LOG CINTRPT BURST) -€14T) "1=INITs»2=TERM,3=SPEC 
3289 INT3 REL RELEASE TASK BLOCK 
3290 TRA SEXIT 
O 3291 INT4 NULL CHECK FOR QUEUE EMPTY 
3292 CMPX S/PMBX+02J 


SEE IF ANY NEW ONES HAVE COME 
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COIMAY79) 


CO9DEC79) 


Gr 3 «Or “. 4: © “G: ©. 0 


'?) 


PIO 09/03/81 U9<s08 255 


X 


So95 
3294 
3295 
3296 
3297 
3298 
3299 
3300 
3301 
530.2 
3303 
3304 
5305 
5306 
S507 
3308 
3309 
Soa 
So4 
SSA 
3313 
3314 
53:19 
33176 
Sate 
3318 
$319 
3320 
3321 
SS ee 
3323 
3324 
3325 
3326 
S520 
3323 
3329 
5550 
eRe | 
5552 
$333 
3334 
bea I) 
3336 
Sa5e 
3338 
3339 
3340 
3341 
3342 
3343 
3344 


On 7 9 OO. 2 ee a ae SS Oa 


DTSS EXECUTIVE CINSERT SEGMENT) 


INTS 


INT15 


INT6 


INT? 


INT8 


INT9 


INT10 


CONTROL EXEC ENTRY ~~ 


TZE 
NULL 
EAX 
ANX 
STX 
LDA 
ANA 
LDXO 
ANSXO 
EAQ 
ANQ 
STQ 
ORA 
‘mas 
EAX 
ANX 
CMPX 
TZE 
LD 
CANQ 
TZE 
ERSQ 
LXL 
PZ 
STA 


INT X 


$1758 
$715/DU 
S*PMBX43eJ 
INTM 
IPIKs,J* 
~1-BSSIGN,DU 
IPIK,J* 
IPIKsJ* 
=077,DU 
QWORD 
QWORD 

INT7 

PeOe AL 
P60/DU 
J235/DU 
INT10 
BSIOBSYsD0L 
PSSTAT»sP 
INT? 
PSSTAT+«P 


TeQ$BUSY+P$Q,P 


SBZOPF,* 
ISQWORD,T 


COUNT BUSY TIME: 


S2ZN 
TZE 
GTIM 
SBA 
ASA 
STZ 
NULL 
LDA 
MTQA 
TRA 
NULL 
STA 
GETD 
LDA 
NULL 
L Da 
ST& 
TRA 
NULL 
LOG 
TRA 
NULL 
LDX 
Ye 


XdSTOSTBsP 
INT15 


XSBIOSTBsP 
X$IOUTBAP 
XSIOSTB8-P 


ISITERM,DL 
INT1 

QWORD 

ILEN 
INT9-/DL 
QwORD 
IENTsT 
INT6 


CSPURIOUS 
INT3 


S*#PBCHANs«P 


INTERRUPT RECOGNITION 


DTSS TRADE SECRET 


NO ~ EXIT INTERRUPT PICKUP 

PICK UP NEXT INTERRUPT 

STEP MY COUNTER 

WRAP AT 16 

RESTORE MY QUEUE COUNT 

GET MAST FOR INTERRUPT 

PICK IT UP 

PREPARE TO UNSET I0C SYNC BIT 
REMOVE IT 

POINT TO INTERRUPT QUEUE 

JUST THE QUEUE POINTER 

SAVE QUEUE POINTER 

PLACE QUEUE POINTER IN QUEUE WORD 
NOT A REAL INTERRUPT 

GET PUB NUMBER IN XR=P 

ONLY 

SPECIAL CHECK 

HANDLE SPECIAL INTERRUPTS DIFFERENTLY 
CHECK FOR OPERATION OUTSTANDING 
ON THIS PUB 

UNEXPECTED INTERRUPT - LOG 

TURN OFF BUSY BIT 

GET PHYSICAL I/0 LIST ELEMENT 

NO LIST ELEMENT ? 

SAVE INTERRUPT WORD 

16AUG74 


16AUG74 

| 16AUG74 

SEE IF WE SET THE TIMER ON IO INITIATION 16AUG74 
IF NOTs THEN DO NOT COUNT TIME 16AUG74 
OTHERWISE GET TIME SINCE BOOTLOAD T6AUG74 
SUBTRACT STARTING TIME FROM CURRENT TIME 16AUG74 
ADD UP TIME IN THE I O USED TIME TABLE T6AUG74S 


CLEAR OUT TABLE IN CASE OF SPURIOUS INTS. 16AUG74 
16AUG74 

TERMINATE SERVICE ROUTINE 

QUEUE TASK FOR THIS INTERRUPT 

AND GO SERVICE NEXT INTERRUPT 

UNEXPECTED INTERRUPT 

SAVE QUEUEWORD 

GET A LIST ELEMENT 

GET ADDRESS OF LOGGING ROUTINE 

MOVE QUEUE WORD TO LIST ELEMENT 

SAVE QUEJE WORD 


QUEUE UP TASK 
LOG SPURIOUS INTERRUPT 
INT) -CIENT,T) 
RELEASE TASK AND EXIT 


GET DEVICE NUMBER 
CHECK FOR CROSSBARRING 


PAGE 106 


RELEASED 01DEC80 


C21APR77) 


C29JAN?77] 
C29JSAN77) 


() 


OQ ) 
> 4 


QO oO 


Oy 4G 4 30 


Oy i 50. Ge <a 30) ©). Or © OO Oo 


0 


PIO 09/03/81 09:08:53 


© -@ 


X 


3345 
3346 
3347 
3348 
3349 
3550 
o551 
Soe 
S505 
3354 
5300 
3356 
Saf 
3358 
S529 
3360 
3361 
SSG 
3363 
3364 
53.65 
3366 
5307 
3368 
3369 
3370 
3371 
S542 
Z5¢5 
3374 
S573 
5376 


O oO 


Or. oO ie SO OD Oe OO a a! ee 


DTSS EXECUTIVE 


INT11 


INT12 


INT13 


INT14 


IPIK 


INTM 


QWORD 


*« 


ENDIOC 
* 


CINSERT SEGMENT) 


CONTROL EXEC ENTRY =- 


E AX 
TRA 
TZE 
L DX 
Ze 
ERSX 
MTa 
TRA 
LDX 
ORSX 
LXL 
TNZ 
LXL 
TNZ 
TRA 
NULL 
GETD 
STX 
LDA 
MTQA 
TRA 
REM 
EQU 
ARG 
ARG 
ARG 
OT 
REM 
BSS 


MARK 


P,BSSIGN-ZS 

INT10 

INT1 
TAUBSPEC,S 
-INTIV2 

TA/USSPECsS 


INT13 
XsBSIOSPC + DU 
XeUSSTATSS 
XsUSSPEC SS 

INT14 

S*USCHANSS 
INT11 
INT 1 


ISDCWH1 
S7ibDEV,T 
USSPECsS 


INT13 


x= 4 
PMBX+16,5 
PMBX+32,5S 
PMBX+48,5S 

777700770074 


1 


DTSS TRADE SECRET 


INTERRUPT RECOGNITION 


AND GET ALTERNATE IF CROSSBARRED 


AND TRY AGAIN 


NO DEVICES ON THIS CHANNEL 
GET TASK FOR THIS DEVICE 


NO SUCH TASK 


ERASE RECORD OF TASK 
QUEUE TASK FOR THIS DEVICE 


AND EXIT 


GET BIT THAT SAYS SPECIAL ARRIVE 


SET IT 


CHECK FOR EXEC TASK FOR DEVICE 


NO 


LINK TO NEXT DEVICE 
CONTINUE IF MORE 


EXIT IF NOT 


GET A LIST ELEMENT FOR TASK 


GET ADDRESS OF TASK 


AND QUEUE IT 
AND EXIT 


POINTERS TO QUEUES 


INITIATE QUEUE 
TERMINATE QUEUE 
SPECIAL QUEUE 


MASK FOR INTERRESTING PARTS 


STORAGE FOR QUEUE WORD 


e 

O 
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RELEASED 01DEC80 

O 

5 

O 

O 

O 

O 

© 

© 

O 

O 

Co9DEC793 0 

O 

O 

OC 

O 

© 

© 

© 


C 


| 
| 
| 
| 
{ 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 


OO te - ay “CF © 


Oe © eee © ee © ee © ee © ae © eee © © ee @ a © 


5 
_ 
oO 


003726 
Q03727 


003730 
003731 
003732 
003433 
003734 
003735 


003736 
003737 
003740 
003.741 
003742 
093743 
Q03744 


003745 
003746 


003747 
003750 
003751 
QOS 7 5 
003753 
003754 
003755 


003756 


09/03/81 


X 


001520 
000000 


OC0002 
O0C0000 
OO03736 
000000 
000.004 
000000 


Q000005 
N000002 
000000 
Q003745 
770000 
004305 

04014 


770000 
003756 


000000 
002136 


003726 


003726 
7000 00 
4500 16 


2350 07 
3150 16 
6000 00 
6550 16 


2200! “1S. 2 


7100 10 


2350 14 
22190 03 
3019 17 
6000 00 
5720.07 
6010 O00 
7100 90 


3750 O07 
6000 O00 


003747 
4500 00 
7000 OO 


314644202551 
514651202020 


O0CC004 
000001 
004010 


000005 


ee0Q-'$ 
1200 03 
7100 00 


003756 


2350 14 


09:08:53 


Re 


S274 
3218 
3379 
3380 
3381 
3382 
3385 
3384 
3385 
3386 


3387 
3388 
5389 
3390 
5571 
3392 
3393 
3394 
S70 
3396 
3397 
3398 
S279 
3400 
3401 
3402 
3403 
3404 
3405 
3406 
3407 
3408 
3409 


3410 


3411 
3412 
3413 
3414 
3415 


3416 
3417 
3418 
3419 
3420 
3421 
3422 
3423 


DTSS EXECUTIVE CINSERT SEGMENT) 


DTSS TRADE SECRET 
PHYSICAL I1/0 -~ INTERRUPT SERVICE 


TTLS PHYSICAL 170. == 
HEAD J 


INTERRUPT SERVICE 
I FOR I/0 


INITIATE/TERMINATE INTERRUPTS 
NULL ENTERED AS MASTER TASK 


GET IOC/MEM STATUS 


RREG RESTORE REGISTERS 

TSXO RREG CALL SUBROUTINE 

STZ PSTICKsP TURN OFF TICKER 

WEED OUT DIAGNOSTIC AND SPECIAL COMMANDS 

LDA BESPIOP.sDL GET SPECIAL OPERATION BIT 

CANA PSSTAT*sP IS: LY SET? 

TZE a+h NO - PROCEED WITH ERROR CHECKS 
ERSA PS3STATsP YES ~ TURN TJ OFF 

LDXO TSIOSTS AZ POINT TO FOLLOWUP ROUTINE 

TRA 0-0 GO DO IT 


CHECK FOR ERROR RECOVERY SUPPRESSED 


LDA QWORD,T GET QUEUE WORD 

LDX XeBRBIONRV,DU GET BIT FOR NO ERROR RECOVERY 

CANX X,USSTATSS IS IT SET? 

TZE eth NO» PROCEED NORMALLY 

ANA =0770000,DL CHECK FOR IOC ERROR 

TNZ FIN3 GIVE ERROR IF SO 

TRA MSTSR DO THE NECESSARY POST-I/0 PROCESSING AND RETURN 


CHECK IOC/MEM STATUS 


ANA =0770000, DL 
i a 2 ITRM2 


ISOLATE IOC/MEM STATUS 
ZERO IS GOLDEN 


TOC ERROR = TAKE APPROPRIATE ACTION 


ELOG CIOM ERROR) LOG IT 

STZ FLOG DON'T INHIBIT DEVICE OUTPUT 
TSXO ELOG CALL SUBROUTINE 

5 Oa | e71l0M ERROR TEXT TO LOG 

LPXO TSIOSTS +2 POINT TO STATUS CHECK ROUTINE 
SBLXO 1,DU ADJUST FOR GENERAL ERROR RETURN 
TRA ITRMS LOAD STATUS AND RETURN 

IOC/MEM OK — CHECK POWER BIT 

NULL 

LDA QWORD,T GET STATUS WORD 
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RELEASED O1DEC80 


C21APR77] 
C21APR77] 
C21APR77] 
C21APR774J 
C21 APR77) 
C21APR77) 
C21APR77) 


COSNOV?77) 


oO WO: OC 6 OO G&G Oo Oo Go © So G&G Cc So So SG 


© 


wemascomranis — Aaah TE 


Oo © Oo CC © G6 © CG OO © OC oO 2 Oo Oo GD G@ Oo 


o> 


PIO 


003757 
003760 


003761 
003762 
003763 


003764 
003.765 
003766 


003767 
003770 
003771 
003.772 


DOS: 773 
003774 
003775 
003776 
003777 


004000 
004001 
004002 


004003 
004004 
004005 
004.006 
004007 


004010 
004011 
004012 
004013 


09/03/81 
I 


200000 3150 03 
003767 6000 00 
003761 
000000 4500 00 
002120 7000 O00 
204746662551 


O00000e 
000004 
060001 


2360 03 
2200 13 
7100 10 


003767 
at oO; -05 
6009 00 
3750 03 
60710 00 

003773 
000000 4500 09 
002136 7000 00 
233021454525 
432022646270 
004305 7100 00 


{100000 
0040900 
070000 
004033 


004000 
2360 O07 
2110 00 
6019 00 

004003 
9€0000 4500 00 
002136 7000 O00 
233021454525 
432063314446 
000004 2200 13 

004010 
2360 14 


177777 
004347 
004007 


000005 
377760 
090014 


000001 7109 10 


S760 05.6. 
(720 UO". 


wt 
6 a 


09:08:53 


DTSS EXECUTIVE 


ITRM3 


ITRM4 


ITRMS 


PHYSTCAL 170 == 


CANA 
TZE 
DLOG 
STZ 
TSXO 
BCI 


FAKE 
LDQ 


LDXO 
TRA 


AN 


CINSERT SEGMENT) 


=0200000-DU 
ITRM3 

( POWER) 
FLOG 

DLOG 

1, POWER 


INTERRUPT SERVICE 


DTSS TRADE SECRET 


CHECK FOR POWER OFF 
SKIP IF NORMAL 
LOG POWER OFF STATUS 
DON'T INHIBIT DEVICE OUTPUT 
CALL SUBROUTINE 
TEXT TO LOG 


ATTENTION STATUS ON POWER OFF 


2 DU 
TEIOSTS-2Z 
170 


FAKE AN ATTENTION STATUS FOR STATUS CHECKER 
POINT TO STATUS CHECKING ROUTINE 
HANDLE LIKE ATTENTION 


CHECK CHANNEL BUSY STATUS 


NULL 
CANA 
Ze 
CANA 
TNZ 
ELOG 
STZ 
TSXO 
BCI 


TRA 


CHECK FOR TIMEOUT TO LOG 


NULL 
LDQ 
CMK 
TNZ 
ELOG 
STZ 
TSXO 
BCI 


LDXO 
NULL 
LDQ 
ANA 
QRL 
TRA 


=01900000-,DU 
ITRM4 
=0070000/,DU 
RETRY 

(CHANNEL BUSY) 
FLOG 

ELOG 

2*eCHANNEL BUSY 


FINS 


-1,0L 

STIMO 

ITRM5-1 
CCHANNEL TIMO) 
FLOG 

ELOG 

2r CHANNEL TIMO 


TSIOSTS 42 


QWORD,T 
=0377760,DU 
12 

1-0 


CHECK A BIT 

EVERYTHING IS OK 

BUT IS IT AN MPC STATUS? 

YES-COULD BE IOM QUEING PROBLEM-TRY IT TWICE *OTIS 


DON'T INHIBIT DEVICE OUTPUT 
CALL SUBROUTINE 
TEXT TO LOG 


GIVE RECOVERABLE STATUS TO USER 


MASK OFF LOWER HALF 
IS fT TIMEOUT STATUS? 
NO - SKIP LOG 
LOG ERROR 
DON*T INHIBIT DEVICE OUTPUT 
CALL SUBROUTINE 
TEXT TO LOG 


POINT TO SPECIFIC STATUS CHECK ROUTINE 


ENTERED HERE ON GENERAL ERROR 


GET STATUS WORD 

ISOLATE STATUS AND QUEUE COUNTER 
MAJOR STATUS TO QU 

CHECK SPECIFIC STATUSES 


an nm en i a niin ee ee a ea ee ae asa ees ae eee sc eee eae 
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RELEASED O1DEC80 


o 
O 
O 


C27APR77) 


OQ 


COSNOV77] 
COSNOV?77) 


C21APR77] 
C21APR77) 
C21APR77) 
CO01DEC80I 


C21TAPR77) 


ye” GO). se Oe 1 Oe A Oe Ds HO 


004014 
004015 


004016 
004017 
004020 


004021 


004022 
004023 


(, 9G: 3O: “OQ. 5 30). @ Oh *@, 9 Oe ae O° Se "Ge Or OO. 


09/03/81 09:08:53 


I 


004014 
000006 2200 13 
O00000 7100 10 


9040176 
QOCO006 7230 13 
000002 7430 14 
062667 71090 00 


960000011007 
004022 

000010 1160 03 

094301 6030 90 


3457 
3458 
3459 
3460 
3461 
3462 
3463 
3464 
3465 
3466 
3467 
3468 
3469 
3470 
3471 
3472 
3473 
3474 
3475 
3476 


3477 
3478 
3479 


DTSS EXECUTIVE CINSERT SEGMENT) 


* #£ & & 


fPCCK 


DTSS TRADE SECRET 


PHYSICAL I/0 -- INTERRUPT SERVICE 


EJECT 


CONTROL RETURNS TO HERE AT THE END OF MOST I/0 OPERATIONS 
WHICH TERMINATE SUCCESSFULLY. 


NULL RETURN FROM STATUS CHECKING 
LDBXO TSIONXT 42 POINT TO NEXT ROUTINE 
TRA 0-0 GO DO IT 


COMMAND LINKING 


NULL 

LAL ZeTolLONkTs,2 GET LINK TO NEXT COMMAND 
STX Ze CMD,T SAVE IN COMMAND POINTER 
TRA MPCSR RETURN WITH PUB SIEZED 


THESE INSTRUCTIONS ARE CALLED FROM VARIOUS STATUS CHECKING 
ROUTINES WHICH DO NOT EXPECT MPC STATUSES. 


EVEN THESE INSTRUCTIONS ARE XEDED 
CMPQ 8 DU CHECK FOR MAJOR STATUS > 8 
TRC PATE ~ FORCE TO FAIL IF SO 
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RELEASED O1DEC80 


COSNOV?7) 
COSNOV77) 
COSNOV?77) 
COSNOV774 
COSNOV?7) 


O- GG 3 ©? @) © © O © 0 C oO © 0 CO 2. D2 © © 


O 


Or G7 “oy we 2) sr 


O oO 


oO . © (O ©: © oO «© G © © ©. © 


PIO 


004024 
004025 


004026 
004027 
004030 
004031 


004032 


004033 
004034 
004035 
004036 
004037 


09/03/81 


I 


Y04024 
OCCOO00 7210 17 
004033 6010 O00 
004026 
004026 
OC0000 4500 00 
000000 7500 90 
OO2T20 7000 O00 
202551514651 
004032 
004040 7000 00 


004033 
000000 0540 17 
O00000 7210 17 
000005 10190 13 
002667 6020 O00 
004301 7100 00 


09:08:53 


3480 
3481 
3482 
3483 
3484 
3485 
5486 
3487 
3488 
3489 
3490 


3491 
$492 
3493 
3494 
3495 
3496 
3497 
3498 
3499 


DTSS EXECUTIVE 


RTRY 


LRTR1 


ENDIOM 
RETRY 


CINSERT SEGMENT) 


DTSS TRADE SECRET 


PHYSICAL I/0 ~- RETRY OPERATION 


Tes 


PHYSICAL I/0 -- 


RETRY OPERATION 


CONTROL IS TRANSFERRED HERE WHEN IT IS DECIDED TO 
RETRY THE LAST OPERATION, REGISTERS SHOULD BE RESTORED 
AND THE PUB SIEZED BEFORE ENTRY, 


NULL 
LXL 
TNZ 
NULL 
DLOGF 
SaZ 
STC2 
TSXO 
BCI 
IFIOM 
TSXO 
MARK 
NULL 
AOS 
LXL 
CMPX 
TNC 
TRA 


Xe/USRETRYSS 
RETRY 


C ERROR) 
FLOG 
FLOG 
DL OG 
1, ERROR 


DVSTS 


USRETRY«S 
XsUSRETRY*S 
XeTSIORTMsZ 
RISUE 

FAIL 


HERE TO LOG AND RETRY 


SEE IF WE HAVE RETRIED BEFORE 


SKIP LOGGING IF SO 
HERE FOR RETRY 
ELSE LOG THIS ERROR 


READ AND LOG DETAILED STATUS 


INCREMENT THE RETRY COUNTER 

GET THE RETRY COUNT 

COMPARE TO MAXIMUM 

IF LESS» REISSUE THE COMMAND 

LOG AND RETURN RECOVERABLE ERROR 
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RELEASED O1DEC8O 


CO9DEC?79 J 
CO9DEC79) 
CO9DEC793 


COIMAY79) 


Dy 4) Oa-*O @O O © so Oe ob Ch SO OO 2 @ &F 


O “@. 3 


em a es ee 


or “Ce 


GC © © 
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004040 
004041 
004042 


004043 


004044 
004045 
004046 
004047 
004050 


09/03/81 


I 


000000 
000151 
000000 


000000 


000025 
000000 
C7007? 
000000 


000006 


004040 


eer Fe 
2340 11 
6000 10 


6250 10 


004044 
2350 03 
7000 00 
2210 14 
6220 14 


000000011007 


Xs 


oe 
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3500 
3501 
3502 
3503 
+3504 
+5505 
+3506 
+3507 
+3508 
+3509 
+3510 
5 i ot Pa 
#35572 
$357.5 
+3514 
551.5 
+3516 
#3517 
$3518 
#35179 
+3520 
+3521 
+3522 


325 


+3524 
Poo Oo 
+3526 
+3527 
+5520 
55-29 
+3530 
$351 
3532 
5253 
3534 
5259 
3536 
3537 
3538 
3539 
3540 
3541 
3542 
3543 
3544 
3545 
3546 


3547 
3548 


| 
{ 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 


VSTL 


re 
* 

x 
MAXDST 
* 
DVSTS 
* 

* 

* 


PHYSICAL I/0 ~~ ISSUE READ DEVICE STATUS 


TTLS 


DTSS EXECUTIVE CINSERT SEGMENT) 


DTSS TRADE SECRET PAGE 112 


PHYSICAL I/0 ~~ ISSUE READ DEVICE STATUS 


SUBROUTINE TO READ AND LOG DEVICE STATUS 


DEVICE DETAIL STATUS LOGGING TO CONSOLE MACRO 
THIS MACRO WILL LOG TO THE CONSOLE A 
DEVICE DETAIL STATUS FOR AN URMPC PRINTER 


MACRO 
CRSM 
STZ 
L DX 
E AX 
CMP X 
TZE 
STC2 
TSXO 
BCI 
INE 
ARG 
INE 
ARG 
INE 
ARS 
INE 
ARG 
CRSM 
ENDM 


EQU 


NULL 


SAVE /OFF 
ISFLOG 


XeUSPTYPESS 
XeTEDVSTBsX 
Xe TSURPRT,DU 


27 1C 
ISFLOG 


RESTORE 
DVSTL 


MAX SIZE OF DEVICE STATUS IN WORDS 


READ DETAILED STATUS 


CHECK TABLE OF READ DETAILED STATUS COMMANDS TO SEE IF WE SHOULD READ 


L DX 
SZN 
TZE 


EAX 


GET NEW 


GETD 
LDA 
TSXO 
LDX 
EAX 


Xe,USPTYPE*S 


TS0VSTBsX 
0,0 


J2020 


GET DEVICE TYPE 
CHECK TABLE ENTRY FOR DEVICE TYPE 
NO DETAILED STATUS COMMAND 


SAVE RETURN IN XR-J 


BLOCK AND COPY INTO IT 


ISDCWH+IT+MAXDST 


GET BLOCK FOR DEVICE STATUS READ 


ISDCWHI+MAXDST-DU 


ASGET 


X/TSLINKAT 


Y0-T 


GET PTR TO OLD ELEMENT 
POINTER TO NEW 


RELEASED O1DEC80 


CO1DEC8O0I 
CO1DEC80) 
CO1DEC80) 
CO1DEC8OI 
CO1DEC80I 
C01d0—EC80) 
CO1DEC80) 
COVWDEC8OI 
CO1DEC80) 
CO1DEC80] 
CO1DEC80) 
CO1DEC80) 
CO1DEC803 
CO1DEC80I 
CO1DEC80) 
CO1DEC80) 
CO01DEC80) 
CO1DEC8O) 
CO01dDEC 80) 
CO1DEC80)3 
CO1DEC80) 
CO1DEC80) 
COWDEC8OI 
C01dEC80) 
CO1DEC80) 
CO1DEC8OI 
CO1DEC8&O) 


COSNOV?77) 


© 


oO; © 


©. @ D.. Or © 


Oo 2 Cr OG G OG 6. Go Oo oOo. 6 


Q 


oO OO ©: © 


} 


A 


Ny. 
= 


¥) 


O O O 


&S 6 & G&G oO SG 6 


OO sO) Or “Oe Oe OS 


09/03/81 09:08:53 DOTSS EXECUTIVE CINSERT SEGMENT) DTSS TRADE SECRET PAGE 113 
I PHYSICAL I/0 ~~ ISSUE READ DEVICE STATUS RELEASED 01DEC8&0 
004051 035600 5602 01 .. 3549 RPD ISDCW,1 COPY BLOCK 
004052 000000 2350 11 .. 3550 LDA O+-X 
004053 000000 7550 12 .. 3551 STA O-Y 
$5.52 * 
3553 * SAVE RETURN» RESET PUB BUSYs SET COMMANDs, AND REISSUE BLOCK 
3554 * 
004054 OQ00006 7450 14... 3555 STX JeIZURETAT SAVE RETURN IN LIST ELEMENT COSNOV77) 
004055 777777 4440 16 X, 3556 SXL ~TA~QEBUSY+P3Q,P RESET PUB BUSY TASK 
004056 000002 2350 07 .. 3557 LDA BSSPIOPsDL SPECIAL OPERATION 
004057 O00000 2550 16 xX. 3558 ORSA PSSTAT»P TO PREVENT ERROR RECOVERY 
004060 000000 2210 17 x, $559 L DX XeUSPTYPESS GET DEVICE TYPE 
004061 000206 6230 OO R. 3560 E AX Z/TSRODTS POINT TO READ BLOCK 
004062 000151 2350 11 R. S604 LDA TSDVSTBsX GET READ STATUS COMMAND FOR THIS DEVICE 
004063 0000071 7550 13 «a 3562 STA TEIOCPC.Z SAVE IN COMMAND TABLE 
004064 Q00002 7430 14 .. 3563 STX Z/CMD,T SAVE PTR TO TABLE 
004065 occoo0d0 2200 03 .. 3564 LDXO O-DU SET ADDRESS EXTENSION TO FIRST 256K COSNOV77) 
004066 000006 4400 14 .. 3565 SXLO ADEXT,T SINCE ALL LIST ELEMENTS SHOULD BE THERE COSNOV77) 
004067 000017 6350 14 .. 3566 EAA T$OCwrt,T CREATE DCW TO DATA AREA 
004070 g00006 2750 07 .. 3567 ORA MAXDST,/DL ADD MAX TALLY 
004071 OC0016 7550 14... 3568 STA ISDCW,T 
004072 002667 7100 O00 R. 3569 TRA RISUE ISSUE READ DEVICE STATUS 
3570 * 
5571 x HERE TO CHECK STATUS OF DEVICE STATUS READ 
Sa72 * LOG INFO READ ON CONSOLE 
ier ee * 
004973 3574 DVST14 NULL LOG DATA 
0040734 DVSTL (DETAIL STATS) -LUSPDAZS),-CISDCWH+I1,T) »CISDCWH2-~T),-CISDCW+34T) 
004073 0cC0000 4500 00 STZ ISFLOG 
004074 oO00000 2210 17 DX X,USPTYPE*S 
004075 G00151 6210 11 cAX Xe TSOVSTB-X 
004076 0O00773 1010 03 CMPX X/TSURPRT,DU 
004077 od00002 60090 04 TZE 201C 
0041700 000900 7500 00 STC2 ISFLOG 
004101 000000 7080 O00 TSXO ISLOG 
004102 242563213143 BCI 2eDETAIL STATS 
004704 206263216362 
004104 000000 09009 17 ARG USPDASS 
004105 000017 0000 14 ARG ISDCWH+1,T 
004106 0000020 0000 14 ARG ISDCWt+2,-T 
004107 000021 0000 14 ARG ISDCW+3,T 
004110 DVSTL CSTATS (CONTI) ALCUSPDALS)I-ACIBOCWH4-T) -CISDCWHS-TIACISDCWH+6,T) 
004710 ooco0dad 4500 00 STZ ISFLOG 
004117 O00000 2210 17 LDx X -USPTYPE*S 
0041712 000151 62190 11 EAX XeTSOVSTB eX 
004113 000173 1010 03 CMPX Xe TSURPRT DU 
0041714 o0o0002 6000 04 TZE 2r71C 
004115 000000 7500 OO STC2 ISFLOG 
004116 000000 7000 O00 TSXO ISLOG 
004117 626321636220 BCI 2*eSTATS CCONT) 
004120 352346456355 
004121 000000 0000 17 ARG USPDA-SS 
004122 000022 ARG ISDCW+4,T 
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PHYSICAL I/0 -= ISSUE READ DEVICE STATUS 
ARG ISDCWtS,T 

ARG ISDCWt+6-T 

LDX J/ISURET,T GET RETURN 

REL RELEASE BLOCK 
TSXO ASREL 

RREG RESTORE REGISTERS 
TSXO RREG CALL SUBROUTINE 
SXL TeQ$BUSY+P$Q,P RESET PUB BUSY 
TRA OnJ RETURN 
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PHYSICAL I/0 -- DIAGNOSTIC DRIVER 

TTLS PHYSICAL I/0 ~~ DIAGNOSTIC DRIVER 

HEAD I I FOR I/0 

NULL ENTER HERE WITH ISMODE IN AU 


SEE IF WE SHOULD SIEZE DEVICE 


CANA BBODGUHD,DU DOES IT SAY *USED HELD DEVICE'? 
TNZ DIAG? YES>= CHECK IF POSSIBLE 

LDXO DIAG3,DU NO = GET RESTART ADDRESS 

TRA £Vic AND TAKE NORMAL QUEUEING ROUTE 


QUEUEING BYPASS REQUESTED 


NULL 

LX X/BSLODGH,DU GET GIAGNOSTIC-HOLD BIT 
CANX XeUSSTATSS SEE IF UNIT IS HELD 

TNZ DIAG2 YESs 80 USE 14 


UNIT NOT HELD - FAKE DEVICE BUSY RETURN 


L DX Xe URET~T MOVE USER RETURN AROUND C29JAN77 J 
SXL Xe QDRUN-T ° C29JAN77) 
LDA DGDVB FAKE STATUS WORD 

STA QUEWD,T SAVE FOR USER 

LDA DCwWaT GET FIRST DCW 

STA DCWWDeT MAKE IT LAST OCW 

TRA SEXIT1 RETURN TO USER 

DEVICE IS NELD = USE “LT 

NULL 

ERSX XeULSTATAS TURN OFF BIT TO PREVENT CONFLICT 

L DX XeUSO,5S POINT TO DEVICE QUEUE 

TMI k+2 NO QUEUE - DON*T BOTHER 

SXKL TeRS BUSY +X STIEZE UNIT FOR US 

DEVICE IS OURS = NOW GET PUB 

NUCL 

RREG RESTORE REGISTERS AFTER QUEUING 

TSXO RREG CALL SUBROUTINE 

LDA USPDA.sS SEE IF LEGAL DEVICE 

TMI POFF NO-~ FAKE A POWER OFF 

TSXO CHLOC GET CHANNEL LOC *OTIS CO1DEC80) 
E AX PeQ, AU AND PUT IN XRP 

LOA MODE .T GET USER'S COMMAND 

CANA BSDGUHP.,DU SEE IF QUEUING BYPASS REQUESTED 

TZE DIAG6 NOs QUEUE NORMALLY 
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3634 x 
3635 x 
004164 3636 DIAG4 NULL 
000000 7210 16 Xx. 3637 LXL 
000001 3010 03... 3638 C ANX 
004174 6010 OO R. 3639 TNZ 
OO0000 2350 16 x. 3640 LDA 
004337 6050 OO R. 3641 TPL 
001524 7000 OO R. -+3642 TSxO 
000000 6260 01... 3643 E AX 
004164 7100 00 R. 3644 TRA 
3645 
3646 * 
3647 * 
004174 3648 DIAGS NULL 
000003 7460 14 .. 3649 STX 
009001 6610 03 .. 3650 ERX 
OO00000 4410 16 XxX. 3651 SXL 
777777 4440 16 X, 3652 SXL 
004203 7100 OO R. 3653 TRA 
3654 * 
3655 " 
3656 t 
004201 3657 DIAG6 NULL 
004201 3658 SIEZE 
oco002 6230 00 .. E AX 
001561 7000 OO R. TSXO 
094203 3659 DIAG? NULL 
3€60 * 
3661 o* 
3662 * 
004203 3663 RREG 
001520 7000 00 R. TSXO 
000002 2350 07 .. 3664 LDA 
oo0000 2550 16 x. 3665 ORSA 
000215 6230 OO R. 3666 EAX 
000002 7430 14 .. 3667 STX 
000007 2350 14 .. 3668 LDA 
007700 3750 03 a. 3669 ANA 
000006 7350 00 .. 3670 ALS 
000001 7550 13 .. 3671 STA 
ogo007 2350 14 .. 3672 LDA 
3673 
3674 
3675 
010000 3150 03 .. 3676 CANA 
002671 6000 OO R, 3677 TZE 
000201 2350 07 .. 3678 LDA 
3679 * 
020000 2360 O07 .. 3680 LDQ 
000000 2560 16 x. 3681 ORSQ 
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QUEUE BYPASS REQUESTED - 


XePSSTATAP 


XeBSIOPDH, DU 


DIAGS 
PSCHANsP 
CBUSY 
CHLOC 
Pe0-AU 
DIAG4 


HELD PUB FOUND 


PsPUB.T 


X/BSTOPDH, DU 
XePBSTATs&P 
TezQEBUSY+PEQ,P 


DIAG? 


NORMAL QUEUEING FOR PUB 


PUB 
Zee 
SIEZE 


RREG 
BSSPIOPsDL 
PESTAT*sP 
Z/TS$IODG 
ZeCMD,T 
MODE »T 
=0007700, DU 
6 

TSIOCPC,2Z 
MODE sT 


CHECK IOC COMMAND 


=0010000-DU 
CIo¢c 
=0000201,DL 


BSIOCDNsDL 
PSSTAT»sP 


DTSS TRADE SECRET 


DIAGNOSTIC DRIVER 


CHECK IF POSSIBLE 


PUB NUMBER IN XR=P 

GET PUB STATUS 

CHECK FOR PREVIOUSLY HELD 

YES ~ USE THIS PUB 

NO=~ ARE WE CROSSBARRED? 

NO-- FAKE CHANNEL BUSY RETURN 
GET CHANNEL LOC *OTIS 

PUT IT INTO PUB REGISTER 

AND TRY AGAIN 


SAVE PUB NUMBER IN LIST ELEMENT 
TURN OFF BIT TO PREVENT CONFLICT 
RESTORE PUB STATUS 

SHOW WE ARE USING THE PUB 

AND SKIP NORMAL QUEUEING 


ASSUME DEFAULT PRIORITY 
CALL SUBROUTINE TO QUEUE 


SET UP PARAMETERS FOR CONNECT 


RESTORE REGISTERS AFTER QUEUEING 
CALL SUBROUTINE 

GET SPECIAL OPERATION BIT 

TO SUPRESS ERROR CHECKING 

POINT TO FAKE DIAGNOSTIC CONTROL BLOCK 
SAVE IN COMMAND TABLE POINTER 
GET USER'S COMMAND 

ISOLATE DEVICE COMMAND 

LEFT JUSTIFY 

SAVE IN CONTROL BLOCK 

RETRIEVE MODE 


CHECK FOR NON=DATA~TRANSFER COMMAND 
NOs SO GO 

SET FOR NON~DATA TRANSFER» 1 RECORD 
SET BIT TO SKIP RESET STATUS 

USUALLY DONE BEFORE ISSUING OPERATION 


PAGE 1176 


RELEASED 


—01DEC80 


CLO1DEC8OI 


C21APR77) 
C21 APR77] 
C217APR77) 
C21APR77]) 
C271APR77) 
C21APR77) 
C21APR77] 
C24 APR77) 
C21APR77) 
C21APR77] 


aa 


oS © 


OF Se Oe WO, 8G. 3: a. 0-9 OF VO: 6 OCOD 


O 
(>. Pro 09/03/81 09:08:53 DTSS EXECUTIVE (INSERT SEGMENT) DTSS TRADE SECRET 
I PHYSICAL I/0 -- DIAGNOSTIC DRIVER 
0 004222 000001 2550 13 .. 3682 ORSA TSIOCPC,Z INTO COMMAND WORD 
004223 002671 7100 00 R. 3683 TRA CIOC AND ISSUE CONNECT 
O 
© 
O 
O 
O 
O 
O 
O 
O 
O 
O 
O 
O 
O 
O 
O 
aS, 
O 


PAGE 117 


RELEASED OQ1DEC80 


Oe Gy Ge © 


Oo. OF tw © OO oO © © +e Oo oO oO Oo - eS e@ 


| 
| 
| 
| 
| 
| 
{ 
| 
| 
i 
| 
| 
| 
| 
| 
| 
| 
| 


Cr «O. 7. © © © © © @ @ oO 2 © © © OO Oo © fy 


P10 


004224 
004225 


004226 
004227 
004230 
004231 
004232 
004233 


004234 
004235 


-004236 


004237 
004240 


004241 
004242 
004243 
904244 


004245 
004246 


09/03/81 


I 


004320 
000011 


OC0007 
0900010 
Q004234 
000001 
000000 
004241 


001620 
000001 
000007 


000040 
004262 


000001 
000000 
000006 
000000 


Oc0000 
000000 


004224 
7770 OO 
Poo. VG 


2210 14 
3910 03 
6009 O00 

wo Ue 
2550 16 
7100 O00 


004234 
004234 
7000 90 
2270 14 
e210 14 


3010 03 
6000 00 


004241 
2350 03 
Zoo 17 
2210 14 
4410 14 

904245 
7000 O00 
7100 00 


09308253 


Re 


3684 
3685 
3686 
3687 
3688 
36389 
3690 
3691 
3692 
3693 
3694 
SO9S 
3696 
3697 
3698 
3699 
3700 
pate 
502 
S03 
3704 


5709 
3706 
3707 
3708 
3709 
3710 
SRV 
SZ 
be a les 
$744 
Sf 15 
3716 
Deg 4 
3718 
Sr 9 
3720 


S02) 


DTSS EXECUTIVE 


DAGX2 


PHYSICAL, TiO == 


BVECT 


CINSERT SEGMENT) 


DTSS TRADE SECRET 


DIAGNOSTIC DRIVER 


COMPLETION OF DIAGNOSTIC COMMAND 


NULL 
XED 
STA 


WHAT DO 


LOX 
C ANX 
ree 
LDA 
ORSA 
TRA 


PUB NOT 


NULL 
FREE 
TSXOQ 
L Dx 
LOX 


ISMODE IN XR-X 


GQWR D GET THE STWH1T WITH ADDRESS EXTENSION MASKED OUT 
QUEWD,T SAVE FOR USER 

WE DO WITH THE PUB? 

XeMODEsT GET THE MODE OF THE OPERATION 
XeBSDGHPB,DU SHOULD WE HOLD PUB? 

DAGX1 NO Se FREE 7. 

BEIOPDH-DL SET BIT TO SHOW HELD 

PSSTATsP IN CHANNEL STATUS 

DAGX2 AND SKIP RELEASE 

HELD ~- RELEASE IT 

PUB 

ISFREE 

S#DEVasT RESTORE UNIT NUMBER TO XR-S 
XeMODE ST GET ISBMODE AGAIN 


NOW CONSIDER THE UNIT CPHYSICAL DEVICE) 


CANX X,B8S0GHDV.,DU SHOULD WE HOLD THE UNIT? 
TZE RETD NO - RETURN NORMALLY 
SAVE THE UNIT 

NULL IF PUB IS SAVEDs SAVE UNIT 
LDA BSIODGHsDU GET BIT TO HOLD 

ORSA USSTAT«*S SET IT IN UNIT STATUS 

L DX X/URET-T MOVE USER RETURN AROUND 
SAL XeQbRUNGT . 

MTQ SET UP RETURN FOR USER 
TSXO QSMTAQ GO QUEUE THE TASK 

TRA BEXIT AND EXIT 
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DTSS TRADE SECRET 


TTLS PHYSICAL I/0 -- RETURN STATUS TO USER 
HEAD I I FOR 1/0 
‘* 
* 
* FINQ ENTER WITH PUB SIEZED. RETURN GOOD STATUS TO USER REGARDLE 
* 
FINO NULL 
XED G@WRD GET RETURN WORD W/ADDRESS EXTENSION MASKED OUT 
LDQ DCWWD,T AND LAST DCW WORD 
TRA RETO1 JOIN NORMAL ROUTINE 
* 
* 
* FINT: RETURN ZERO OR ONE STATUS DEPENDING ON RESIDUE IN SMBX1 
ke ENTER WITH PUB 
* 
FIN1 NULL 
XED GQWRD GET STATUS WORD WITH ADDRESS EXTENSION MASKED OUT 
LDG DCWWD,T AND LAST DCW 
CANQ =O7C7777,0L CHECK FOR WORD OR CHARACTER RESIDUE 
TZE RETO1 IF NONEs TREAT AS FINO 
ORA 1T*BSIORETSDL ELSE SET PARTIAL TRANSFER RETURN 
RETO1 NULL QUEWD IN As DCWWD IN Q 
STA QUEWD,T SAVE USER STATUS WORD 
STa DCWWDsT SAVE LAST DCW IMAGE 
RETF FREE PUB RELEASE THE CHANNEL 
TSXO ISFREE 
RETD NULL JOINED HERE BY DIAGNOSTICS 
LDX S*sDEVeT RESTORE DEVICE NUMBER 
LDX X,URET,T RESTORE USER RETURN 
SXL XeQhRUNOT . 
MTQ SET UP RETURN TO USER 
TSXO QEMTQ GO QUEUE THE TASK 
kk kak kk keke KLOG END OF I1/70 CALL FOR SYSTEM LOGGER*** 
LDA =14B21,0U GET TYPE OF CALL CI/O END) 
SYS2 NOP IOSLG,)DU ke kekK*K CHANGE TO TSXO WHEN LOGGING ***exe 
KEKE KKK RK KK wR KK KKK KK KKK KEK KKK KKK KKK KK KKK KK KKK KK aK KA KK KKK KKK 
TRA NEXT START NEXT OPERATION ON THIS DEVICE 
* 
* LOG I/O TYPE CALL FOR SWAPPER LOGGER 
* 
IOSLG NULL 
STXxO IOLGX SAVE EXIT 
TSXO XSLHEAD LOG A HEADER 
EAQ O,T GET T 
LDA ISDAC,T GET DEVICE CODE 
ARL 18 MOVE OVER 
LLS 18 NOW PUT IN T 
XED HZSTLOG LOG IT 
IOLGX TRA ee RETURN 
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FING 
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GAWRD 


ADXMK 


DTSS TRADE SECRET 
PHYSICAL I/0 -- RETURN STATUS TO USER 
EJECT 


FAIL - LOG ERROR AND THEN RETURN RECOVERABLE ERROR TO USER. 
ENTER WITH PUB SIEZED 


NULL 
DLOG ( FAIL) NOTE WE GO BACK TO USER 
ST FLOG DON*T INHIBIT DEVICE OUTPUT 
TSXO DLOG CALL SUBROUTINE 
BCI 1. FAIL TEXT TO LOG 
AND FALL THROUGH TO FIN3 
TS XO DYSTS READ AND LOG DETAILED STATUS 
FINS - LIKE FAIL, BUT NO LOGGING 
NULL 
XED GQWRD GET STATUS WORD WITH RETURN FIELD CLEARED 
ORA 3*BLIORET,DL SET RECOVERABLE ERROR STATUS 
TRA RET34 JQIN OTHER ROUTINES 
FIN2 - END OF FILE RETURN ON TAPEs LAST BATCH ON CARD READERs ETC 


ENTER WITH PUB STEZEDs AS USUAL 


NULL 

XED GQWRD GET STATUS WORD WITH PIO RETURN CLEARED 
ORA 2*BSTORET,DL SET STATUS 

NULL 

LDQ DCWWD,T AND LAST DCW IMAGE 

TRA RETO1 GIVE RETURN 


FINS = UNRECOVERABLE ERROR. ENTER WITH PUB SIEZED. 
INFORMS USER NOT TO RETRY COMMAND, 


THIS STATUS 


NULL 

XED GQwWRD GET STATUS WORD WITH RETURN FIELD CLEARED 
ORA 4*BSIORETZDL SET STATUS 

TRA RET34 JOIN OTHER ROUTINES 

DO AN XED GAWRD TO LOAD THE QUEUE WORD (STW1 FROM IOM) INTO R-A 


AND MASK OUT THE ADDRESS EXTENSION CWHICH INTERFERES WITH THE PIO 
STATUS RETURN). 


EVEN 

LDA QWORD,T LOAD TOM GENERATED STATUS WORD 
ANA ADXMK MASK OUT ADDRESS EXTENSION 

OCT (77777770077 MASK TO CLEAR PIO RETURN FIELD 
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OC PIO 09/03/81 09:08:53 DTSS EXECUTIVE CINSERT SEGMENT) DTSS TRADE SECRET PAGE 121 C) 
I PHYSICAL I/0 --~ RETURN STATUS TO USER RELEASED O1DEC80O 
O | © 
3818 Ewe T 
3819 * 
3820 * FAKE STATUSES 
O 3821 * O 
3822 * 
C) 3823 x THESE ROUTINES GENERALLY RETURN STATUSES WHEN THE PUB IS NOT C) 
3824 * SIEZEDs AS OPPOSED TO THE ROUTINES ON THE PRECEEDING PAGE, 
3825 * 
3826 * 
O 3827 * FAKEO - FAKE GOOD STATUS O 
3828 * 
Ss 004323 3829 FAKEO NULL O 
004323 900000 2350 07 .. 3830 LDA O,DL VERY GOOD STATUS 
004324 004326 7100 OO R. 3831 TRA FAKE JOIN OTHER ROUTINES 
C) 3832 * Cj 
3833 * RJCT - FAKE A COMMAND REJECT FOR A NONmRECOGNIZABLE COMMAND IN I$8 
3834 * 
OC 904325 36355 RUCT NULL C) 
004325 004343 2350 00 R. 3836 LDA RJCTS GETSTATUS 
004326 3837 FAKE] NULL ENTER HERE WITH QWORD IN A 
O 004326 000001 2270 14 .. 3838 LDX . SsDEV-T RESTORE UNIT NUMBER O 
004327 000016 2360 14 .. 3839 LDQ DCWeT GET THE FIRST DCW IMAGE 
004330 OOOO 2 £560" 44 wx 3840 S$TQ DCWWD,T MAKE IT LAST ALSO 
O 004331 DOOCOUT)T.7550 746 as 3841 STA QUEWD,T SAVE STATUS JUST FAKED eS 
CO4332 004262 7100 OO Rs 3842 TRA RETD RETURN TO USER, LOGGING EXIT OF PIO 
3843 * 
oO 3844 O 
3845 * BDAD ~ REJECT COMMAND FOR ADDRESS OUT OF BOUNDS 
3846 * 
O 004333 3447 BDAD NULL ENTER WITH DEVICE SIEZED CO 
004333 084344 2350 OO R. 3848 LDA BDADS GET STATUS 
004334 OCR S 26: 70D OO ts 38%49 TRA FAKE? JOIN OTHER ROUTINE 
3850 * r 
O 3851 * O 
3&52 * POFF ~- FAKE POWER OFF 
3853 * 
O 004335 3854 POFF NULL O 
004435 004345 2350 00 R, 3855 LDA POFFS GET STATUS 
O 004336 004326 7100 OO R. 3856 TRA FAKE? RETURN IT TO USER O 
5857 * 
3858 * 
OC) 3859 * CBUSY ~ CHANNEL BUSY FAKED FROM DIAGNOSTICS C) 
3860 am 
004337 3861 CBUSY NULL 
OQ 004337 004351 2350 QO R. 3862 LDA CBSYS GET STATUS WORD O 
004340 004326 7100 OO R, 3863 TRA FAKE1 RETURN IT TO USER 
@ ‘e 
O © 
© © 


ce meee eee eee eee eee ee eee eae ee eee ce 
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PIO 


004341 
004342 
004343 
004344 
004345 
004346 
004347 
004350 
004351 
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000040000000 
030220000400 
050100000400 
030400000400 
200000000400 
0710000000400 
070000000500 
0701700000500 
100000000400 


09:08:53 
3864 
3865 
3866 
3867 
3868 
3869 
oe 3870 
os 38714 
— S81 ¢ 
os 3673 
ow 3874 
ea SOrD 
os 3876 
o 3877 


oe 3878 


DTSS EXECUTIVE CINSERT SEGMENT) 


DTSS TRADE SECRET 
PHYSICAL I1/0 ~= RETURN STATUS TO USER 
EJECT 

FAKE STATUS RETURNS. 


LIGHT THE SYNC BIT, 
A FAKE STATUS. 


AS A MATTER OF POLICY WE DON'T 
TO LET THE USER KNOW THAT IT*S 


STATUS RETURN ON TIMEOUT OR NO STATUS 


OCT 000040000006 

OCT 030220000400 BUFFER LENGTH ERROR FOR L6 

OCT 050100000400 STATUS TO REJECT COMMAND IN ISMODE 
OCT 030400000400 BAD DEVICE TYPE FIELD 

OCT 200000000400 STATUS TO FAKE POWER OFF 

OCcT 0710000000400 DEVICE BUSY FAKE BY DIAG 

OCT 070000000500 CHANNEL TIMEOUT STATUS 

OCT 070100000500 SPECIAL INTERRUPT WAIT TIMEOUT 

OCT 100000000400 CHANNEL BUSY STATUS 
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CO9DEC?79) 
CO9DEC?79J 
CO9DEC79] 
CO9DEC79I 
CO9DEC79) 
CO9DEC7TII 
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O PIO 09/03/81 09:08:53 DOTSS EXECUTIVE CINSERT SEGMENT) DTSS TRADE SECRET 
I PHYSICAL I/0 ~~ STATUS CHECKING -= DRUM 
VU 3879 TTLS PHYSICAL I/0 ~-=- STATUS CHECKING ~~ DRUM 
3880 * 
© 3881 * 
3882 * SPECIAL KLUDGE A 17 
3883 * 
QO 3884 * THE FOLLOWING CODE IS BEING SAVED FOR HISTORICAL REASONS. WE DO 
3885 * NOT EXPECT THAT THERE WILL BE A NEED FOR MDU201-0SS167-D0SS170- OR 
3886 * DSS180 ON AN JOM, IF» HOWEVER, SUCH A THING BECOMES NECESSARY 
C) 3887 * AND YOU DECIDE TO USE THE FOLLOWING CODE ON AN IOMs BE FOREWARNED 
3888 * THAT NONE OF IT HAS BEEN TESTED. 
3889 * 
‘@) 3890 INE IOMFLGs4124ZQX3 DELETE CODE FOR IOM 
3891 * 
3892 * SEEK~READs, SEEK~WRITE 
CQ) 3893 * 
3894 DRRD1 NULL ENTRY FROM READ DRUM 
3895 DRWT1 NULL ENTRY FROM WRITE DRUM 
C) 3896 TRA RETRY RETRY GENERAL TYPE ERRORS 
3897 XED MPCCK LOG FAIL ON MPC STATUSES 
3898 TRA +1 ,QU BRANCH ON MAJOR STATUS 
CO 3899 
3900 * MAJOR STATUS BRANCH TABLE 
3901 * 
QO 3902 TRA MSTSR 0 = CHANNEL READY - RETURN 
3903 TRA FATL 1 = DEVICE BUSY - WE BLEW IT BAD ~ 
3904 TRA DRRD2 = ATTENTION ~- NOTE IT IN BIG LETTERS 
‘@) 3905 TRA DRRD3 LRTRY FOR NOW, LOG WORD COUNT ON DATA ALERTS 
3906 TRA MSTSR 4 = EOF CIOC~C HAS CORRECT RESIDUE) 
3907 TRA LRTRY 5 = COMMAND REJECT ~ LOG AND RETRY 
C) 3908 TRA FAIL 6 = INTERMEDIATE - IMPOSSIBLE 
3909 TRA RETRY 7 = TIMEOUT - RETRY 
3910 * 
C) RC * ATTENTION CONDITION ON DRUM 
3912 * 
3913 DRRD2 NULL 
O 3914 ORDER SeC( ATTENTION DRUM) 
3915 RRESG RESTORE F REGISTERS AFTER ROADBLOCKING 
3916 TRA LRTRY RETRY AND HOPE 
O 3917 x 
3918 * DATA ALERT ~~ COMPUTE WORD ON THE DRUM WHICH IS BAD 
3919 * 
O 3920 DRRDS NULL 
3921 AOS DRUME COUNT DRUM ERRORS 
3922 LXL X*#USRETRY*S CHECK FOR RETRY 
C) 3923 TNZ DRRDS RETRY,» CHECK FOR TIMING ERRORS 
3924 CANQ =0070000-DL CHECK FOR TRANSFER TIMING ERROR 
3925 TNZ RETRY JUST RETRY IF SO 
O 3926 STZ DRLT ZERO OUT TEMP 
3927 * 
3928 kKkkekkkk kkk kkkkk kkk kkk kk kk kk kkk 
O 3929 *I0OM 
3930 IFE IOMFLGo1 »MARK 
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C21APR77)] 
C21APR77) 
[C21APR77]) 
C21APR77] 
C27 APR77) 
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C21APR77) 
C21TAPR77] 
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O PIO 09/03/81 09:08:53 DTSS EXECUTIVE CINSERT SEGMENT) DTSS TRADE SECRET 
I PHYSICAL I/0 ~= STATUS CHECKING ~- DRUM 
O 3931 * 
5932 EAX X/DCW.T POINT TO ORIGINAL DCW 
O 3933 * 
3934 MARK MARK 
3935 * 10M 
O 3936 wok oR ko OK KO RK KR KK RK ek 
3937 x IOC 
956 INE IOMFLG»1/MARK1 
O 3939 * 
3940 LDxX XePSSMBX4,P GET ORRIGINAL DCW POINTER 
3941 * 
O 3942 MARK 1 MARK 
3943 x10C 
3044 Ka KKK KK KR ma KK KKK KK KK KKK 
3945 * 
O 3946 DRRDG NULL 
3947 LDA O-X GET A DCW 
C 39428 ANA 4096-1,0L JUST THE COUNT 
3949 TNZ +2 ZERO IS SPECIAL 
3950 LDA 4096,DL AND MEANS 4096 
oO 3951 ASA DRLT INCREMENT COUNT OF WORDS 
3952 * 
3953 KAKA KK KKK KK KK KAKA KKK KA KKK KKK KK 
OC 3954 *10OM 
3955 LE IOMFLGs1-MARK 
3956 * 
@) 3957 EAA O +X GET POINTER TO OCW 
3958 ARL 18 IN A-~LOWER 
3959 ADX XrledDU AND INCREMENT POINTER TO NEXT 
C) 3960 EAQ =| MASK FOR LPWX IN Q-LOWER 
3961 CMK Kol PWX oP ARE WE DONE YET? 
3962 TNC DRRDG NOs -EO.0P 
@& 3963 LDA DCWWD-T GET RESIDUE 
3964 * 
3965 MARK MARK 
CO 3966 x TOM 
3967 KaAKKAK A KKK EK KKK KKK KK KK KR KK 
3968 *lOC 
O 3969 INE ILOMFLGs1-MARK1 
3970 * 
3971 ADX Xe1/DU INCREMENT DCW POINTER 
O 3972 CMP X XePBESMBX2-P ARE WE DONE YET? 
53975 TNC DRRD4 NO =-- LOOP 
3974 LDA PSSMBX1-P GET RESIDUE 
3975 * 
O 3976 MARK MARK 
3977 x IOC 
OQ 39078 KRKKKKKKKKKAK KK KAKA K KK KEK KKK KK 
3979 * 
3980 ANA 4096-1-D0L JUST THE RESIDUE 
CO) 3981 NEG NEGATE 
3982 ASA DRLT ADJUST FOR OVERSHOOT 
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3983 
3984 
3985 
3986 
S9et 
3988 
5°69 
3990 
3991 
3992 
3995 
3994 
5995 
3996 
SO 
2778 
3999 
4000 
4001 
4002 
4003 
4004 
4005 
4006 
4007 
4008 
4009 
4010 
4011 
40172 
4013 
4014 
4015 
4016 
4017 
4018 
4019 
4020 
4021 
4022 
4023 
4624 
4025 
4026 
4027 
4028 
4029 
4030 
4031 
4032 
4033 
4034 
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DKSK1 
DPRS1 


DTSS TRADE SECRET PAGE 125 


PHYSICAL 1/0 ~-- STATUS CHECKING ~~ DRUM RELEASED O1DEC80 
LOG CWORD OFFSET),/DRLT" LOG THE OFFSET 

RREG RESTORE REGISTERS 

TRA LRTRY RETRY OPERATION 

NULL 

CANG =00190000-D0L CHECK FOR TRANSFER TIMING ERROR C21APR77) 
ee RETRY RETRY IF NOT 

TRA LRTR1 FORCE LOG IF SO 

OcT 0 DRUM ERROR COUNTER 

ZERO TEMP FOR ROUTINE 

TYLS PRYS ICAL 1/0 -~ STATUS CHECKING -- DISK 


RESTORE 2314 CERROR RECOVERY) 


NULL SEEKS FOR BOTH READ AND WRITE 

NULL RESTORE CRECALISRATE) INSTRUCTION 

TRA RETRY JUST RETRY GENERAL ERRORS ON SEEK 

XED MPCCK LOG FAIL ON MPC STATUSES 

TRA *+1,QU BRANCH ON MAJOR STATUS 

TRA MSTSR O = CHANNEL READY ~ PROCEED TO NEXT TASK 
TRA FAIL 1 = DEVICE BUSY - WE BLEW IT 

TRA DKSKe 2 = ATTENTION =~ NOTIFY OPERATOR 

TRA LRTRY 3 = DATA ALERT ~ LOG AND RETRY 
TRA FAIL 4 = END-OF-FILE - SHOULDN'T HAPPEN ON SE 
TRA LRTRY 5 = CMD RJCT - LOG AND RETRY 

TRA FAIL 6 = INTERMEDIATE =~ SHOULD NOT HAPPEN 

TRA RETRY 7 = TIMEOUT ~— RETRY SEEK 

ATTENTION 

NULL 

QRDER 3/(ATTENTION DISK) 

RREG RESTORE REGISTERS AFTER ROADBLOCKING 

TRA FAIL LOG STATUS AND RETURN TO USER 


SEEK DSS1T67/DSS 170 DISCS 


NULL 

NULL 

TRA RETRY RETRY IOC ERRORS 

XED MPCCK LOG FAIL ON MPC STATUSES 
TRA *+1,QU BRANCH ON MAJOR STATUS 


MAJOR STATUS BRANCH TABLE 


TRA MSTSR QO = READY - CONTINUE ONWARD 

TRA FAIL 1 = DEVICE BUSY — SHOULD NOT OCCUR 
TRA DPSK2 2 = ATTENTION ~- CHECK FOR ‘SEEK INCOMPLETE* 
TRA LRTRY 5 = DATA ALERT ~ LOG AND RETRY 
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4035 
4036 
4037 
4038 
4039 
4040 
4041 
4042 
4043 
4044 
4045 
4046 
4047 
4048 
4049 
4050 
4051 
4052 
4053 
4054 
4055 
4056 
4057 
4058 
4059 
4060 
4061 
4062 
4063 
4064 
4065 
4066 
4067 
4068 
4069 
4670 
4071 
4072 
4073 
4074 
4075 
4076 
4077 
4078 
4079 
4080 
4081 
4082 
4083 
4084 
4085 
4086 


DTSS EXECUTIVE CINSERT SEGMENT) DTSS TRADE SECRET PAGE 126 
PHYSICAL I/0 -= STATUS CHECKING ~~ DRUM RELEASED 
TRA FAIL 4 = EOF = SHOULD NOT OCCUR ON SEEK 
TRA DPSK3 5S = COMMAND REJECT — DIAGNOSE 
TRA FAIL 6 = INTERMEDIATE - IMPOSSIBLE 
TRA RETRY 7 = TIMEOUT - RESEEK 
x 
* ATTENTION ON 2314 SEEK 
* 
DPSK2 NULL 
LDX Y/CMD,T GET POINTER TO SEEK COMMAND 
DPATN NULL JOINED HERE FROM R/W COMMANDS 
SXL YeCMDeT SAVE POINTER TO SEEK COMMAND 
DKRQ3 NULL ATTENTION ON REQUEST STATUS AFTER SPECIAL 
CANQ =0020000-DL CHECK FOR "SEEK INCOMPLETE” STATUS 
TZE DKSK2 IF NOT, LOG AND RETURN TO USER 
DPRST NULL ISSUE RESTORE ON DISK PACK 
LDX Z/TBDPRS*ZDU POINT TO RESTORE CRECALIBRATE) COMMAND 
STX ZeCMD,T SAVE IN COMMAND POINTER 
TRA LRTRY LOG, THEN TRY RESTORE COMMAND 
: 
* COMMAND REJECT ON 2314 SEEKs READ REGISTER» OR RESTORE 
x 
DPSK3 NULL 
CANQ =0200000-DL CHECK FOR "HSFC BUSY STATUS 
TZE LRTRY JUST LOG AND RETRY IF NOT 
DPRJT NULL JOINED HERE BY READ/WRITE : 
SWAIT AWAIT SPECIAL INTERRUPT - SHOULD NOT TAKE LONG 
RREG RESTORE REGISTERS AFTER QUEUEING 
TRA RETRY RETRY WITHOUT LOGGING 
EJECT 
* 
* 
* REQUEST STATUS AFTER SPECIAL 
* 
DKRQI NULL 
TRA RETRY JUST RETRY IOC ERRORS 
XED MPCCK LOG FAIL ON MPC STATUSES 
TRA *+7,QU BRANCH ON MAJOR STATUS 
TRA MSTSR O = READY - GO AHEAD AND READ 
TRA DKwT2 1 = DEVICE BUSY = STILL SEEKING 
TRA DKRQ3 2 = ATTENTION - MAYBE DSS167 "SEEK INCOMPLETE’ 
TRA DKRQ2 3 = DATA ALERT - MUST RESEEK 
TRA FAIL 4 = END OF FILE ? 
TRA LRTRY S = CMD RJCT - LOG AND RETRY 
TRA MSTSR 6 = INTERMEDIATE ~ SEEK IS COMPLETE 
TRA DKRQ2 7 = TIMEOUT - REISSUE SEEK 
* 
* DATA ALERT ON REQUEST STATUS AFTER SEEK DSU204 
* 
DKRQ2 NULL 
LXL Z-CMD-T GET SAVED R/W COMMAND POINTER 
TRA DKRSK BACK UP AND RESEEK 
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4087 
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4089 
4090 
4091 
4092 
4093 
4094 
4095 
4096 
4097 
4096 
4099 
4100 
4101 
4102 
4103 
4104 
4705 


4106 


4107 
4108 
4109 
4110 
4411 
4112 
4113 
4114 
4115 
4116 
4117 
4118 
4119 
4120 
4121 
4122 
4123 
4124 
4125 
4126 
4127 
4128 
4129 
4130 
4131 
4132 
4133 
4134 
4135 
4136 
4137 
4138 


DTSS EXECUTIVE CINSERT SEGMENT) 


DTSS TRADE SECRET 


PHYSICAL I/0 -= STATUS CHECKING ~~ DRUM 

* 2314 READ~REGISTER COMMAND 

x 

DPRR1 NULL 
TRA RETRY RETRY IOC ERRORS 
XED MPCCK LOG FAIL ON MPC STATUSES 
TRA *+1,QU BRANCH ON MAJOR STATUS 

bd 

x MAJOR STATUS BRANCH TABLE 

*® 
TRA MSTSR O = READY - NEXT TASK WILL CHECK RESULT 
TRA FAIL 1 = DEVICE BUSY = HSFC BUSY? 
TRA LRTRY DKSK2 2 = ATTENTION ~ SPURIOUS STATUS FROM HSFC? 
TRA LRTRY 3 = DATA ALERT - LOG AND RETRY 
TRA FAIL 4 = EOF = SHOULD NOT OCCUR 
TRA DPSK3 5 = COMMAND, REJECT - CHECK FOR HSFC BUSY 
TRA FAIL 6 = INTERMEDIATE - IMPOSSIBLE 
TRA RETRY 7 = TIMEOUT - JUST RETRY 

* 

. READ=REGISTER SUCCESSFUL - NOTE COMPLETED SEEKS 

* 

DPRR2 NULL 

* 

KKK KKK KKK KKK KKK KKK KKK KKK KK 

*I0M 
1FE IOMFLG,s1/MARK 

* 
LDA PSCHAN»P CHECK ALL DEVICES ON THIS PUB 
TPL DPRR6 WE HAVE THE FIRST DEVICE IN A 
ANA -1,DU MASK TO NEXT CROSSBARRED PUB 
ALS 2 SHIET FOR INDEXING 
FAX P»O.AU PUT INTO PUB REGISTER 
TRA DPRR2 TRY AGAIN 

DPRR6  LDX P,PUB,T RESTORE PUS NUMBER 
LDX X,BSIO0SKC/DU GET "SEEK COMPLETE” BIT 
E AX Ye07AU PUT DEVICE NUMBER IN Y 

* 

MARK MARK 

* 10M 

KK KKM KKK KKEKKKEKK KKK KK KK KKK KKK 

*10C 
INE IOMFLGs1-MARK1 

* 
L DX Y pPSCHAN SP CHECK ALL DEVICES ON THIS PUB 
TPL «+3 WE HAVE FIRST LINK IN Y 
E AX P»BSSIGNPY WATCH OUT FOR CROSSBARRING 
TRA DPRR2 TRY AGAIN 
LDX P»PUB,T RESTORE PUB NUMBER TO P 
LDX X-B8SI0SKC,/DU GET "SEEK COMPLETE" BIT 


* 


MARK1 MARK 
*1OC 
FO OKI KIO IOI KIO tok 
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4139 
4140 
4141 
4142 
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4144 
4145 
4146 
4147 
4148 
41749 
41750 
4751 
4152 
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4158 
4159 
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DTSS EXECUTIVE CINSERT 


* 


DPRRS 


DPRR4 


DPRRS 


DKRD1 


SEGME 


PHYSICAL I/0 -- 


NULL 

CANX X*eUSSTA 
TZE DPRRS5 
LXL YeUSCHAN 
TNZ DPRR3 
TRA DPRQX 
LD USPDAsY 
QRL 6 

LDA PSTEMP » 
ALS -1-QU 
TMI DPRRG 
ORSX XeUSSTA 
TRA DPRRS 
EJECT 


RESEEK OPERATION AND RETRY 


NULL 

LX Z/TSIOR 
Sex Z/ChMD,T 
TRA LRTRY 
EJECT 

2374 R/W 

DSS167 R/W 

NULL 

NULL 

NULL 

NULL 

TRA x43 

XED MPCCK 
TRA DKRD1,Q 
CANQ =000400 
sy vs RETRY 
LXL ZreTSIOR 
STX ZeCMD-T 
TRA RETRY 


NT) DTSS TRADE SECRET PAGE 128 
STATUS CHECKING -- DRUM RELEASED 01DEC80 
Try see. TF SEEK TS COMPLETE HERE 

NOs MUST CHECK 
“yY LINK TO NEXT CHANNEL 

LOOP IF MORE 

NOW SEE IF WE CAN READ OR WRITE 

GET DEVICE NUMBER 

IN QU 
F GET RESULT OF READ REGISTER 

POSITION BIT FOR DEVICE 

SEEK NOT COMPLETE 
Try SET SEEK COMPLETE BIT 

LINK TO NEXT DEVICE 


TY eZ 


U 
O-DL 


TY eZ 


GET POINTER BACK TO SEEK COMMAND 
SAVE IN LIST ELEMENT 
AND RETRY THE OPERATION 


SKIP ON 
LOG FAIL ON 


TOC/1IOM ERRORS 
MPC STATUSES 


BRANCH ON MAJOR STATUS 


CHECK FOR TERMINATE INTERRUPT 


C27APR77) 


JUST RETRY IF NOT 


ELSE+>, 


MUST RESEEK 


POINT BACK TO SEEK AGAIN 


WE 


MAJOR STATUS BRANCH TABLE 


NULL 

TRA DPWTO 
TRA FAIL 
TRA DPWT2 
TRA DPWT3 
TRA DKRSK 
TRA DPWTS 
TRA FAIL 
TRA DKRSK 


MSTSR 


NOUS WN - 


© 


Hou td ou i 


= READY - 


HAVE ALREADY LOGGED. 


TEMP CHECK ON DCW RESIDUE ***e%* 
DEVICE BUSY =~ WE BLEW IT | 


ATTENTION ~— CHECK FOR SEEK INCOMPLETE STATUS 
DATA ALERT ~ WATCH FOR ‘HEADER VERIFICATION F 
EOFs RESEEK AND RETRY 


COMMAND REJECT -- *HSFC BUSY’ 
INTERMEDIATE - 


TIMEOUT - 


CHECK FOR 
IMPOSSIBLE 
RESEEK AND RETRY 
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O PIO 09/03/81 09:08:53 DTSS EXECUTIVE CINSERT SEGMENT) DTSS TRADE SECRET PAGE 129 
I PHYSICAL I/0 -= STATUS CHECKING -=- DRUM RELEASED 07DEC80 
Y 4191 * TEMPORARY CHECK FOR DCW RESIDUE *kkk kk kk aK ke 
4192 * 
4193 DPWTO NULL 
O 4194 * 
4195 RK KKK KK KKK KKK KKAKAKKKKK KKK KRK KKK 
CO) 4196 «10M 
4197 L-FE IOMFLGe1s/MARK 
4198 x 
OC) 4199 LDQ DCWWDeT GET DCW RESIDUE 
4200 * 
4201 MARK MARK 
O 4202 *IOM 
4203 RRR KKK KK KKK AK K KKK KKK KKK 
4204 * IOC 
C) 4205 INE IOMFLGe1 »-MARK1 
4206 * 
4207 LDA PESMBX1P GET DCW RESIDUE 
CO 4208 * 
4209 MARK1 MARK 
4210 *1TOC 
© 4211 ka kK KKK AK KK KKK KKK A KKK KKK KKK KKK 
4212 * 
4213 CANRQ =O7777eDL SHOULD BE ZERO C21APR77) 
Cy 4214 EZE MSTSR IT IS SO RETURN NORMALLY 
4215 TRA DKRSK IT ISN'T = PROBABLY HARDWARE ERROR —- RETRY 
4216 * . 
O 4217 * ATTENTION ON 2314 R/W 
4218 * 
4219 DPWT2 NULL 
C 4220 LXL Yeti SIORTY,2Z POINT BACK TO SEEK COMMAND 
4221 TRA DPATN JOIN ROUTINE FOR SEEK 
4222 x 
O 4223 * DATA ALERT ON 2314 R/W 
4224 * 
4225 DPWT3 NULL 
OC 4226 tk YeTSIORTY 42 POINT BACK TO SEEK COMMAND 
4227 CANQ =0320000,DL CHECK FOR DATA ERRORS C21APR77) 
4228 TRA DKRSK ON WARREN'S INSTRUCTIONS kk aaa KR KR 
O 4229 TZE DKRSK IF NOT» RESEEK AND RETRY 
4230 . SXL Y*eCMDsT SAVE POINTER TO SEEK COMMAND 
4231 x 
O 4232 * SET UP READ-REGISTER COMMAND TO GET DETAILS 
4233 * 
4234 PROTO (O,T) GET ANOTHER WORKING BLOCK 
O 4235 SXL TeQSBUSY+P$Q,P UPDATE PUB BUSY POINTER 
4236 LDA BSSPIOP,DL GET SPECIAL OPERATION BIT 
4237 ORSA PS$STAT+sP TO PREVENT ERROR RECOVERY 
O 4238 LDX Z/TSDPRRASZDU POINT TO READ REGISTER: COMMAND 
4239 LDX Xs/BSIONSKeDU GET BIT TO TELL IF DSS180 
4240 C ANX X*USSTAT*S CHECK IT 
oO 4241 TZE +2 NO 
4242 LDX ZeTSOPRRBA-DU READ REGISTER IS DIFFERENT ON DSS180 
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I PHYSICAL I/0 == STATUS CHECKING -- DRUM RELEASED O1DEC80 

O 4243 STX Zo CMD »T SAVE IN COMMAND POINTER O 
4244 * 

O 4245 Kk ROR A aK KK KK KK Kk ak O 
4246 *IOM 
4247 Ere IOMFLG-1/MARK 
4248 * 

O 4249 Lba DCWsT C29JAN77) O 

4250 ST SEKAD+T C29JAN77) 

O 4251 EAA PSTEMP,P POINT TO TEMPORARY STORAGE OC) 

4252 ORA 20DL LENGTH OF THE TEMP 
4253 STA DCWeT SAVE AS DCW 

O 4254 * cy 
4255 MARK MARK 
4256 *1OM 

© 4257 KKK KAR KKK aK RK KAKA KK KKK kk C 
4258 *IOC 
4259 INE LOMFLGs1/MARK1 

C) 4269 * C) 
4261 LDA P&SSMBX1+P PRESERVE SMBX1 FOR ERROR PRINTOUT C29JAN77) 
4262 §TQ SEKAD,T ‘ L29JAN77] 
4263 * 

O 4264 MARK1 MARK O 
4265 *IOC 

O 4266 KAKKKRKKKKA Ka KK AKA KKaKK RK KR KKK K KK ©) 
4267 * 
426% TRA RISUE ISSUE READ REGISTER INSTRUCTION 

O 4269 * @ 
4270 * RETURN FROM READ REGISTER INSTRUCTION 
4271 x 

eG) 4272 DPRAI Nute DON'T SKIP ONE BECAUSE BSSPIOP WAS ON Cc): 
4273 * 
4274 KKK KKKK KA KKK AK KKK KK KKK KKK KKK 
4275 *IOM ~ 

O 4276 IFE 1OMFLGoel »MARK O 
4277 x 

OC 4278 LDa SEKAD,T C29JSAN77) eS) 
4279 STA DCwWweT C29JAN77) 
4280 * 
4281 MARK MARK 

O 4282 x*IOM O 
4283 wk KKK KKK RAK K ARK KK KKK KKK KKK KK : 
4284 *ITOC 

O 4285 INe LOMFLGs1/MARK1 O 
4286 * 

eo) 4287 L Ba SEKAD,T RESTORE MAILBOX FOR ERROR LOG C29JAN77) O 
4288 STQ P$SMBX1,/P ° C29JAN77) 
4289 x 
4290 MARK1 MARK 

O 4291 *IOC O 
4292 KAKKKEKKKKKKKKK KKK AKER KK KEK KKK KEK 

C) 4293 * eo 
4294 LOG CREAD REGISTR)s (PSTEMP,P)- (CPSTEMP4+14P),(QWORDsTI" LOG IT 

O O 


'o) 


P10 09/03/81 09:08:53 
I 


4295 
4296 
4297 
4298 
4299 
4300 
4301 
43Ce2 
4303 
4304 
4305 
4306 
4307 
4308 
4309 
4310 
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Oo o O&O OO © © 8 f]. © 


O- O- war Oe «a OD 


DTSS EXECUTIVE CINSERT SEGMENT) 


DPWT5 


PHYSICAL 1/0 -- STATUS CHECKING -- DRUM 

REL RELEASE EXTRA BLOCK 

RREG RESTORE REGISTERS AFTER LOGGING AND REL 
SXL T/Q$BUSY+P$3Q,/-P RESET BUSY POINTER 

TRA DPRST GO ISSUE RESTORE AND RETRY 


DTSS TRADE SECRET 


COMMAND REJECT ON 2314 R/W 


NULL 
LDX 
C ANX 
TNZ 
CANQ 
TNZ 
TRA 


MARK 


XeUSSTAT«S 
X/BSIONSK,DU 
RETRY 
=O0200000-DL 
DPRUJT 

DKRSK 


GET THE DEVICE'S BITS 

IS THIS A 180? 

YES, JUST RETRY THE OPERATION 
CHECK FOR 'HSFC BUSY’ STATUS 
WAIT FOR SPECIAL AND RETRY IF SO 
ELSE RESEEK AND RETRY 
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RELEASED O1DEC8&0O 


C21APR77) 
C21APR77] 


C21APR77) 
C21APR77) 
C21APR77) 


O QO OO © 


> A oO 2 & OO 6 


3s AF “Oi sy Or Os © 
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OO: 6 OC 6-6 GO CO oOo Go G OO G&G 6 


004352 
004353 


004354 
004355 
004356 
004357 
004360 
004361 
004362 
004363 
004364 
004365 
004366 
004367 
004370 
004371 


004372 
004373 
004374 
004375 
004376 
004377 


004400 
904401 
004402 


004403 
004404 
004405 


004406 
004407 
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004033 
004354 


004014 
004424 
004400 
004422 
004424 
004424 
004424 
004422 
000000 
004424 
004417 
004372 
004424 
004424 


77CQ00 
300090 
004424 
340000 
004424 
004422 


12090009 
004422 
004040 
001620 
0017420 


000000 
000000 


004352 
004352 
004352 
7100 OO 
7100 Oe 


7100 00 
7400 00 
7100 00 
7100 00 
7100 00 
7100 00 
7109 OO 
7100 00 
7100 20 
7100 QO 
7100 00 
7100 00 
7100 90 
7100 O00 


004372 
2760 07 
100 07 
6029 00 
1160 0? 
6000 00 
7100 O08 


004400 
3160 O07 
6010 00 
7Q00 00 

004403 
7000 00 

004404 
7000 O00 

004405 
4500 O00 
7000 00 


216363452024 
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4311 
4342 
4313 
4314 
4315 
4316 
4317 
4318 
4319 
4320 
4321 
4322 
4323 
4324 
4325 
4326 
4327 
4328 
4329 
4330 
Bes4 
4332 
4333 
4334 
4335 
4336 
4337 
4338 
4339 
LSE 
4341 
4342 
4343 
4344 
4345 
4346 
4347 
4348 
4349 
4350 
4351 
4352 
4353 
4354 
4355 


4356 


4357 
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DORD2 


DIORDS 


DTSS TRADE SECRET 


PHYSICAL 1/0 -~ STATUS CHECKING -= DRUM 

Etec 

STATUS CHECKING ~~ DSS190 FAMILY SEEK/READ, SEEK/WRITE 
NULL 

NULL 

NULL FOR FORMAT COMMAND 

TRA RETRY RETRY ON IOM ERRORS 

TRA *+7, QU BRANCH ON MAJOR STATUS 


MAJOR STATUS BRANCH TABLE FOR DSS190 FAMILY 


TRA 
TRA 
TRA 
TRA 
TRA 
TRA 
TRA 
TRA 
TRA 
TRA 
TRA 
TRA 
TRA 
TRA 


MSTSR 
DORDF 
DORD3Z 
DORDR 
BORDF 
DORDF 
DORDF 
DORDR 
$ZOPF,* 
DIRDF 
DIORDS 
DIRD2 
DORDF 
DORDF 


READY, RETURN GOOD STATUS 

DEVICE BUSY, WE BLEW IT 

ATTENTION 

DATA ALERT» LOG AND RETRY 

EOF,PROBABLY A BAD TRACK 

COMMAND REJECT, WE BLEW IT 

INTERMEDIATEs IMPOSSIBLE 

TIMEOUT, LOG AND RETRY 
CHANNEL BUSY» WE SHOULD HAVE CAUGHT IT 
IMPOSSIBLE 

MPC ATTENTION, 
MPC DATA ALERT, 
IMPOSSIBLE 

MPC COMMAND REJECT, 


hoi Wot mon mou 


CHECK FURTHER 
CHECK FURTHUR 


wr edo a SoA OUD WH a O 


wf Wn — © 


Hon Ww Ww Ut 


IMPOSSIBLE 


MPC DATA ALERT ON DSS190 FAMILY READ/WRITE 


NULL 
ANA 
CMPQ 
TNC 
CMPQ 
The 
TRA 


=O077000U,DL 
=0300000-DL 
DORDF 
=0340000-DL 
DORDF 
DIORDR 


DEVICE ATTENTION ON 


NULL 
C ANG 
TNZ 
PSKO 
FREE 
TSXO 
RREG 
TSXO 
LOG 
$TZ 
TSX 
BCI 


=0120000,DL 
DIORDR 

DVSTS 

PUB 

ISFREE 


RREG 


MASK TO MINOR STATUS ONLY 
CHECK FOR OK GROUP 

STATUS < 30(8) ARE ALL BAD 
CHECK FOR EDAC UNCORRECTABLE 
YES, RETURN BAD STATUS 

ELSE RETRY 


DSS190 FAMILY 
CHECK/SEEK INCOMPLETE? 
YES, JUST LOG AND RETRY 


READ AND LOG DEVICE DETAIL STATUS 
RELEASE THE CHANNEL 


CALL SUBROUTINE 


CATTN DISK???) -/-C(USPDA,S),-,(QWORD,T) 


ISFLOG 
QO, ISLOG 


2eATTN DISK??? 


DON'T INHIBIT DEVICE OUTPUT 
CAN BE CALLED FROM THE OUTSIDE WORLD 
TEXT ARGUMENT 
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COIMAY793 


cCoSNov77] 
COSNOV77] 
COSNOV77] 
LOSNOV77] 
COSNOV77I 
COSNOV77] 
LOSNOV77) 
COSNOV77) 
COSNov773 
COSNOV77I 
COSNOV77I 
COSNOV77I 
COSNOV77] 


COSNOV77] 
COSNOV?77) 
COSNOV?7) 
COSNOV77) 
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004410 
004411 
004412 


004413 


004414 


004415 
004416 


094417 
0044206 
004421 


004422 
004423 


004424 
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Bisel i a ae og 


Q00000 
000005 


eGeao4 


002177 


067520 
002661 


700000 
004424 
004422 


004426 
004024 


004426 
094301 


0000 17 
0000 14 
004413 


O110°-03 


004414 
7000 O00 
004415 
7000 00 
7100 OO 


004417 
3160 07 
6000 00 
7160 00 


004422 
7000 00 
7100 90 


9004424 
7000 OO 
7100 00 
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4358 


4359 


4360 


4361 
4362 
4363 
4364 
4365 
4366 
4367 
4368 
4369 
4370 
4371 
4372 
4373 
4374 
4375 
4376 
4377 
4378 
4379 
4380 
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x 
DIORDR 


* 
* 
* 


DIRDF 


PHYSICAL I/0 -- 


ARG 
ARG 
ALARM 
INHIB 
NOP 
INHIB 
SWAIT 
TSXQ 
RREG 
TSXO 
TRA 


USPDA,sS 
QWORD,T 


SAVE-/ OFF 
91356,/DU 


RESTORE 
RETURN 
SWAIR 


RREG 
MAINA 


DTSS TRADE SECRET 


STATUS CHECKING -- DRUM 


YES, POINT TO IT 


UNINHIBIT 

SIGNAL ALARM WANTED 
RESTORE INHIBIT 

WAIT FOR A SPECIAL FROM 


CALL SUBROUTINE 
RETRY THE OPERATION 


MPC DEVICE ATTENTION 


NULL 
CANQ 
Tae 
TRA 


LOG AND 
NULL 


TSXO 
TRA 


=0700000,DL CHECK FOR SUBSTATUS < 10(8) 
DORDF YES, MPC FAILURE 
DORDR MIGHT BE RECOVERABLEs RETRY 


RETRY BUT FIRST 


MKSEEK 
LRTRY 


COMPUTE SEEK ADDRESS OF ERROR 


COMPUTE SEEK ADDRESS OF ERROR 
LOG AND RETRY 


GENERATE FAIL MESSAGE BUT FIRST COMPUTE SEEK ADDRESS OF ERROR 


NULL 
TSXO 
TRA 


MKSEEK 
FAIL 


COMPUTE SEEK ADDRESS OF ERROR 
AND GENERATE FAIL 
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COSNOV?7] 
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004440 
004441 
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004443 
004444 


004445 
004446 
004447 
004450 
004451 
004452 
004453 
004454 


004455 
004456 
004457 
004460 


09/03/81 


I 


004460 
G04461 


000016 
007546 
yccoo0 
000000 
004455 


090009 
007777 
004441 
010000 
004461 
OCcCO001 
000000 
004435 


O00012 
OO77?77 
004451 
07190000 
GOO000 
004461 
000006 
C04461 


OC0004 
094461 
003133 
0GO0000 
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7400 
4500 


62170 
7600 
0620 
1919 
6059 


00 
00 


004435 


2350 
3750 
6010 
£5350 
0556 
0619 
1079 
6040 


2359 
3750 
6010 
2350 


ae. 


0750 
7710 
1390 


am 


004455 


e5a0 
0750 
0550 
7100 


14 
0 
17 
00 


004461 


4351 

4382 

4383 

4384 

4385 

4336 

4387 

4388 

4389 

Re 4390 
Rs 4391 
4392 

P 4393 
~ ~+439%4 
X» +4395 
as +4396 
Ris 4397 
& 32983 

4399 

4400 

4407 

es 4402 
isa 4403 
R, 4404 
me 4405 
ae 4406 
e- 4407 
ae ~*+6408 
R. 4409 
44170 

4414 

4472 

eed 4413 
os 4414 
R » 4415 
4416 
e E477 
Re 44178 
. 4419 
. 4420 
4421 
4422 
4423 
4424 

ea 4425 
Ra 4426 
Rs 4427 
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4430 

4431 

4432 
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KSEEK 
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PHYSICAL I/0 -- STATUS CHECKING ~-- DRUM 

EJECT 

THIS SUBROUTINE COMPUTES THE REAL SEEK ADDRESS AFTER AN ERROR ON 

A D191 OR M451 DISK AND STUFFS IT IN RSEEK~S. IT ASSUMES THAT THE 


MAILBOX FOR CHANNEL HAS NOT BEEN MODIFIED AND THAT THE LPW POINTS 
TO THE FIRST DCW NOT USED. 


NULL 

STXO MKSKX SAVE RETURN 

see MKTOT CLEAR COUNT OF WORDS TRANSFERED 

EAX Xe0CWs, T POINT TO THE START OF THE DCW LIST 
TSKO TOMS GET 4*CH IN YR-IOMHA IN AL *OTIS 

ADK YoXEMBXP,ZAL oET LOC IN MAILBOXES *OTIS 

CMPX XrXSLPWrY CHECK AGAINST LAST DCW*OTIS 

VPA MKS2 10M DION'T GET HEREs ASSUME NO DATA TRANSFERED 
LOOP ADDING UP DCWS 

NULL 

LDA O,X GET A DCW 

ANA =O7777/DL MASK TO LENGTH 

TNZ x2 SKIP IF LENGTH VALID 

LDA 40964DL 0 = 4096 

ASA MKTOT ADD TO TOTAL 

ADX Xel/DU POINT TO NEXT DCW 

CMP X X*#XBLPWerY DID THE [0M GET HERE?*OTIS 

TMI MKS1 YES» LOOP 

NOW DECREMENT TOTAL BY THE BCW RESIDUE 

LDA DCWWD,T GET THE DCW RESIDUE 

ANA =O7777,D0L MASK TO COUNT 

TN2 x +2 SKIP IF VALID 

LDA 4096,DL_. 0 = 4096 

NEG TO SUBTRACT FROM TOTAL 

ADA MKTOT NOW HAVE ACTUAL WORDS TRANSFERED 

ARL 6 DIVIDE BY 64 TO GET RECORDS TRANSFERED 
STA MK TOT AND SAVE 

NOw COMPUTE ACTUAL SEEK ADDRESS & STUFF IN RSEEK 

NULL 

LDA SEKAD,T LOAD STARTING SEEK ADDRESS 

ADA MK TOT ADD NUMBER OF RECORDS SUCCESSFULLY TRANSFERED 
STA RSEEKsS SAVE IN TABLE 

TRA wee AND RETURN 

STORAGE 

BSS 1 PLACE TO ACCUMULATE LENGTH TRANSFERED 
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RELEASED O1DEC80 


©. 6 °C 


PHYSICAL I/0 -~ STATUS CHECKING ~- HONEYWELL 716 

TTUS PHYSICAL 1/0 -- STATUS CHECKING -- HONEYWELL 716 

READ, WRITE ‘s 

NULL [01DEC80] 

NULL © 

NULL 

TRA RETRY RETRY IOC ERRORS 

XED MPCCK LOG FAIL ON MPC STATUSES CO 

TRA *+1,QU BRANCH ON MAJOR STATUS 

MAJOR STATUS BRANCH TABLE O 

TRA MSTSR O = CHANNEL READY 

TRA FAIL 1 = DEVICE BUSY CO 

TRA FAIL 2 = DEVICE ATTENTION 

TRA LRTRY 3 = DATA ALERT 

TRA FAIL be COR S= PUNT es 

TRA LRTRY 5 = COMMAND REJECT 

TRA FAIL 6 = INTERMEDIATE -- SHOULDN'T HAPPEN 

TRA FAIL 7 = TIMEOUT O 
© 
CO 
So) 
‘e) 
ee 
Ee. 
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* 
x 
DNRD1 
DNWT1 


* & e 


* 
rd 
DNRED2 
ONwT2 
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x+146 


Get!TLINE TOO LONGs TRY ANOTHER! !!!127? 


*t142 
2 DELETED!1?? 


IT 


PAGE 142 


RELEASED 01DEC80 


COSNov?774I 
COSNOV77) 
COSNOV?77) 
COSNOV?77.) 
CO5NOV77) 
COSNOV77) 
COSNOV?77) 
COSNOV77) 
COSNOV77) 


CO1SEP79) 
CO1SEP79) 


Eo Ge 


Os WO. my "Oe 1, Woe «Qs 5© 


Ge Or fs se Oe 1: Ge “CO 


S: 
O 


O Or ©) 1, «Ge wo re + © 


O 


Or. Ty sO: tos sO We 2 


004731 
004732 
004733 
004734 
004735 
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004746 
004747 
004750 
004751 
004752 
004753 


004754 
004755 
004756 


004257 
004760 
004761 
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004733 
004736 
004000 
004033 
00500e 


004754 
004305 
004771 
004774 
004310 
005021 
0043014 
004301 
000000 
004301 
004757 
004763 
9004301 
004301 


100000 
004014 
004305 


770000 
100000 
004305 
004301 


004731 
004731 
004731 
004731 
004731 
004731 
7100 O00 
7100 O02 
3160 07 
6000 CO 
7100 QO 


004736 
7100 QO 
7100 00 
7100 00 
7100 O00 
7100 O00 
7100 O00 
7100 00 
77100 O00 
7700 20 
7100 O00 
7199 00 
£700 -00 
7100 09 
7100 OO 


904754 
3169 07 
6000 00 
7100 OO 


004757 
3760 07 
1160.07 
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7100 O00 


004763 
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wma we 
e 6 


4740 
4741 
4742 
4743 
A744 
4745 
4746 
og 
4748 
4749 
4750 
4751 
4752 
4753 
4754 
4755 
4756 
AGS? 
4758 
4759 
4760 
4761 
4762 
4763 
4764 
4765 
4766 
476? 
4768 
BPE9 
4770 
4774 
A772 
4773 
4774 
4775 
4776 
E777 
4778 
4779 
4780 
4781 
4782 
4783 
4784 
4785 
4786 
4787 
4788 
4789 
4790 
4791 


DTSS EXECUTIVE CINSERT SEGMENT) 


* 
* 
* 


MTRD2 


* 


MTRO8 


MTRD? 


PHYSICAL I/0 -- 


TTLS 
x 


READs WRITE, 
NULL 

NULL 

NULL 

NULL 

NULL 

NULL 

TRA x+2 

TRA MTRD2,QU 
CANQ =0004000,DL 
Vee RETRY 
TRA MTRDS 


PHYSICAL I/0 


FWD SPACE, 


DTSS TRADE SECRET 


STATUS CHECKING ~- MAG TAPE 


STATUS CHECKING == MAG TAPE 


WEF, WRITE~SINGLE~CHARACTER 


ENTRY FOR GENERAL ERRORS 
BRANCH ON MAJOR STATUS 

CHECK FOR TERMINATE INTERRUPT 
JUST RETRY IF NOT 

ELSE BACKSPACE AND RETRY 


MAJOR STATUS BRANCH TABLE 


NULL 
TRA 
TRA 
TRA 
TRA 
TRA 
TRA 
TRA 
TRA 
TRA 
TRA 
TRA 
TRA 
TRA 
TRA 


CHANNEL 


NULL 
CANQ 
TZE 
TRA 


MPC ATTENTION 


NULL 
ANQ 
CMPQ 
TZE 
TRA 


MPC DATA ALERT ON MTS500 


NULL 


MTRDI 
FINS 
MTRD3 
MTRD4 
FIN? 
MTRDS 
FAIL 
FAIL 
SZOPFe* 
FAIL 
MTRD8 
MTRD?7 
FAIL 
FAIL 


READY 


=0100000-DL 


MSTSR 
FINS 


=0770000, DL 
=0700000-DL 


FINS 
FAIL 


ON 


CHANNEL READY = CHECK FOR ASCII ALERT 
DEVICE BUSY = RETURN IT TO USER 
DEVICE ATTENTION - DIAGNOSE 
DATA ALERT - CHECK SOME MORE 
END-OF-FILE MARK 
COMMAND REJECT 
INTERMEDIATE - TEST SWITCH IS THROWN 
TIMEOUT - CAN'T TELL WHAT TO DO 

CHANNEL BUSY» WE SHOULD HAVE CAUGHT IT 
IMPOSSIBLE 

MPC DEVICE ATTN.ws DIAGNOSE 

MPC DATA ALERT» CHECK FURTHUR 
IMPOSSIBLE 

MPC COMMAND REJECT. 


wun uw bob bo ou 


AN OUD WS OO 


pues 
-— © 


Huu uv won 


IMPOSSIBLE 


CHECK FOR ASCII ALERT 
NOs RETURN GOOD STATUS 
YES, RETURN RECOVERABLE I/0 ERROR 


MASK TO SUBSTATUS 

IS IT INCOMPATIBLE MODE? 

YES, RETURN TO USER WITH NO LOGGING 
MPC FAILURE 
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004767 
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004771 
004772 
004273 


004774 
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004776 
004777 


005000 
005001 


005002 
005003 
005004 


005005 
005006 
005007 
005010 
005071 
005012 
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700000 
004301 
770000 
240000 
004305 
N005002 


700000 
004305 
004301 


0209000 
004314 
400000 
004014 


004000 
004024 


904320 
000300 
000011 


O0000e2 
000005 
000005 
000005 
000002 
004024 


3160 07 
6000 00 
3760 07 
1160 07 
6000 OO 
7190 O00 


004771 
3160 07 
6000 00 
#790 OO 


004774 
Sh6O- U7 
6010 OO 
3160 U7 
6010 00 


3169 O7 
6000 00 


005002 


7170 O00 
ef OD “Os 
7550 14 


44390 14 
e210 13 
7230 13 
7410 13 
7430 14 
7100 O00 


09:08:53 


Re 
Re 
Re 


DTSS EXECUTIVE CINSERT SEGMENT) 


* 
* 
* 


MTRD3 


tk 
* 
* 
MTRDS 


% 


CANQ 
TZE 
ANQ 
CMPAQ 
eZie 


DTSS TRADE SECRET 


PHYSICAL I/0 == STATUS CHECKING ~~ MAG TAPE 
=O700000-DL CHECK FOR BAD MPC STUFF 
PALL YES» LOG FAIL 
=0770000,DL MASK TO SUBSTATUS 
=0240000-DL CODE ALERT?? 
FINS YES JUST RETURN TO USER WITHOUT LOGGING 
MTRD5 ELSE» BAKSPACE AND RETRY 


TRA 


DEVICE ATTENTION 


NULL 
CANQ 
hee 
TRA 


DATA 


NULL 
CANQ 
TNZ 
CANQ 
TNZ 


=QO700000,0L 
FINS 
FAIL 


ALERT CONDITION 


=0020000/D0L 
FING 
=0400000/DL 
MSTSR 


RETRY TAPE OPERATION 


CANA 
T2k 


=0004000-0L 
LRTRY 


BACKSPACE AND RETRY 


NULL 


SAVE STATUS FROM BEFORE 


AED 
ORA 
STA 


SXL 
L DX 
LXL 
STX 
STX . 
TRA 


GQWRD 
3*BeITORETADL 
QUEWD,T 


THE 


SAVED 
See 


Z/CMbd,T 

Ae TSLTORTM eZ 
ZeTSIORTY oZ 
XeTSIORTM eZ 
ZeCMD-T 
LRTRY 


NIL/BLANK TAPE ON WRITE/CHECK 
RETURN OTHERS WITHOUT LOGGING 
LOG ERROR AND RETURN TO USER 


CHECK FOR BLANK TAPE ON READ 

THAT IS NOT RECOVERABLE 

CHECK FOR END-OF-TAPE FOIL 

YESs RETURN GOOD STATUS TO USER 

FALL THROUGH TO RETRY ASSORTED ERRORS 


CHECK FOR TERMINATE INTERRUPT 
LOG AND RETRY IF NOT 


BACKSPACE 


GET STATUS WORD WITH PIO RETURN FIELD CLEAR 
MAKE RECOVERABLE I/0 ERROR 
SAVE QUEUE WORD 


STRATEGY HERE WILL BE TO ATTEMPT THE BACKSPACE. 
IF THE TAPE DOES NOT SEEM TO MOVE BACKWARDS, 
STATUS WILL BE RETURNED TO THE USER. 

OPERATION WILL BE RETRIED. 


THE 
OTHERWISE, 


SAVE CURRENT COMMAND POINTER 

GET RETRY MAX FOR THIS COMMAND 

GET POINTER TO BACKSPACE COMMAND FOR THIS 
SAVE RETRY MAX 

SAVE IN COMMAND POINTER 

RETRY THE COMMAND (NOW BACKSPACE) 


NEXT TASK AFTER BACKSPACE 
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004305 
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7100 00 
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4849 
4850 
4851 
4852 
4853 
4854 
4855 
4856 
4857 
4858 
4859 
4860 


DTSS EXECUTIVE CINSERT SEGMENT) 


MTBS X 


MTBX1 


MTRD6 


DTSS TRADE SECRET 


PHYSICAL I/0 ~~ STATUS CHECKING ~- MAG TAPE 

NULL 

L DX XeMODE.ST WHAT NEXT? 

CMPX XsMDWR» DU WAS THIS SUPPOSED TO BE A WRITE? 
Lis CLINK GO ERASE BAD RECORD IF SO 

NULL 

LXL Z/CMD-T GET OLD COMMAND POINTER BACK 

STX Ze CMD-T POINT TO IT 

TRA MPCSR RETURN WITH PUB SIEZED 


COMMAND REJECT FROM TAPE 


NULL 

CAN =0200000-DL CHECK FOR READ“AFTER-WRITE CHECK 
TNZ FING UNRECOVERABLE I/0 ERROR TO USER 
CANQ =0100000-DL TAPE AT LOAD POINT ON BACKSPACE 
TNZ FIN3 RETURN THAT STATUS TO USER 

TRA LRTRY ELSE JUST LOG AND RETRY 
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4865 
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4867 
4868 
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4870 
4871 
4872 
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4874 
4875 
4876 
4877 
4878 
4879 
4880 
4881 
4882 
4883 
4884 
4885 
4886 
4887 
4888 
4889 
4890 
4891 
4892 
4893 
4894 
4895 
4896 
4897 
4898 
4899 
4900 
4901 
4902 
4903 


4904 
4905 
4906 


DTSS EXECUTIVE CINSERT SEGMENT) 


PHYSICAL I/0 ~~ STATUS CHECKING ~~ MAG TAPE 
ESECT 

* 

* 

* BACKSPACE IN ERROR RECOVERY 

* 

MTBS1 NULL 
TRA a+ SKIP ON ERROR 
TRA MTBS2,QU BRANCH ON MAJOR STATUS 
CANQ =0004000-/DL CHECK FOR TERMINATE INTERRUPT 
TNZ MSTSR ASSUME TAPE MOVED IF SO 

x 

* RETURN SAVED STATUS TO USER 

* 

MT38S3 NULL 
LDA SILDCW,T RETURN OLD DCW RESIDUE 
STQ DCWWD-T » 
LDQ SEKAD,T RESTORE OLD DCW 
STQ DCWesT * 
TRA RETF RETURN OLD STATUS TO USER 

* 

* MAJOR STATUS BRANCH TABLE 

* 

MTBS2 NULL 
TRA MSTSR 0 = READY - GOOD 
TRA MTBS4 1 = DEVICE BUSY - LOG AND EXIT 
TRA MTBS4 2 = ATTENTION ~ LOG AND EXIT 
TRA MTBS1 3 = DATA ALERT - HANDLE LIKE IOC ERROR 
TRA MTBS4 4 = EOF - LOG AND EXIT 
TRA MTBS14 5 = COMMAND REJECT - LIKE I0C ERROR 
TRA MTBS4 6 = INTERMEDIATE ~ NOT EXPECTED 
TRA MTBS3 ? = TIMEOUT - ASSUME TAPE MOVED 
TRA FZOPF,* 10 = CHANNEL BUSY» WE SHOULD HAVE CAUGHT IT 
TRA FAIL 171 = IMPOSSIBLE 
TRA MTBS4 12 = MPC ATTENTIONs LOG ERROR 
TRA MTBS1 13 = MPC DATA ALERT» TREAT LIKE IOM ERROR 
TRA FAIL 14 = IMPOSSIBLE 
TRA FAIL 15 = MPC REJECT,» IMPOSSIBLE 

* 

* 

* UNEXPECTED CONDITIONS 

* 

MTBS4 NULL 
DLOG ( ERROR) 
SZ FLOG DON*T INHIBIT DEVICE OUTPUT 
TSxXO DLOG CALL SUBROUTINE 
BGI 1/ ERROR TEXT TO LOG 
LDQ QWORD,T RESTORE QUE WORD AFTER LOGGING 
QRL 18-6 
TRA MTBS1 CONTINUE IF TERMINATE INTERRUPT 


DTSS TRADE SECRET 
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4922 
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4926 
4927 
4928 
4929 
4930 
4931 
4932 


DTSS EXECUTIVE CINSERT SEGMENT) 


* 

* 

* 

* 

MTSH1 
MTSL1 
MT9H1 
MTOL14 
MTD11 
MTO21 
MTD31 
MTD41 
MTD51 
MTSP1 


PHYSICAL I/0 - 


EJECT 


SET DENSITY 


SET FILE PROTECT 


NULL 
NULL 
NULL 
NULL 
NULL 
NULL 
NULL 
NULL 
NULL 
NULL 
TRA 
XED 
TRA 
TRA 
TRA 
TRA 
TRA 
TRA 
TRA 
TRA 
TRA 


RETRY 
MPCCK 
*+7,QU 
MSTSR 
FINS 
MTRD3 
LRTRY 
FAIL 
LRTRY 
FAIL 
RETRY 


DT 


SS TRADE SECRET 


STATUS CHECKING =~ MAG TAPE 


ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 


LOG FAIL ON 


FOR 
FOR 
FOR 
FOR 
FOR 
FOR 
FOR 
FOR 
FOR 


SET~HIG 
SET LOW 
9 TRACK 
9 TRACK 
SET 200 
SET 556 
SET 800 
SET 160 


H~DENSITY 
DENSITY 
SET HIGH DENSITY 
SET LOW DENSITY 
BP I 
BPI 
BPt 
0 BPI 


SET 6250 BPI 
ON SET FILE PROTECT 
FOR IOC OR GENERAL ERRORS 


MPC S$ 


TATUSES 


BRANCH ON MAJOR STATUS 


NOU PWNS © 
Vou uu ou ou 


= CHANNEL READY 
DEVICE BUSY - 
ATTENTION - 

DATA ALERT ~ 
EOF = 
CMD RJCT - LO 
INTERMEDIATE 

TIMEOUT - 


SHOULDN 


RET 


- RETURN TO MAIN LINE 
RETURN STATUS TO USER 


SEE IF IT SHOULD BE LOGGE 


LOG AND RETRY 

"T HAPPEN HERE 

G AND RETRY 

- TEST SWITCH ON 
RY 
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005076 
005077 
0051700 


005701 
005102 
005103 


005704 
005105 
005106 
005107 
005110 
005111 
005112 
005113 


005114 
005115 
005116 
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005101 
004022 
005104 


002000 
004305 
004033 


004014 
004305 
004771 
005114 
004310 
0050217 
004301 
004301 


002000 
004301 
004024 


005076 
005076 
005076 
005076 
05076 
71090 00 
7170 OO 
7100 O02 
005101 
965101 
3760 O07 
6009 00 
71090 O00 


005104 
7100 00 
77100 00 
7700 00 
7100 00 
7100 00 
7100 O00 
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7100 00 


005114 
3160 07 
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4933 
4934 
4935 
4936 
4937 
4938 
4939 
4940 
4941 
4942 
4943 
4944 
4945 
4946 
4947 
4948 
4949 
4950 
4951 
4952 
4953 
4954 
4955 
4956 
4957 
4958 
4959 
4960 
4961 
4962 
4963 
4964 
4965 
4966 
4967 
4968 
4969 
4970 
4971 
4972 
4973 
4974 


DTSS EXECUTIVE CINSERT SEGMENT) 


DTSS TRADE SECRET 


PHYSICAL I/0 -- STATUS CHECKING -- MAG TAPE 
EJECT 

* 

- BACKSPACE RECORD/FILEs REWIND, RWS» WRITE BLANK TAPE 

* 

* (NOTE: THE PHILOSOPHY WITH THESE COMMANDS IS TO RETRY THE 

* COMMAND IF IT APPEARS THAT THE TAPE DID NOT MOVE, BUT TO 

- FORCE THE USER TO DO HIS OWN RECOVERY CIF ANY) WHERE THE 

* TAPE SEEMS TO HAVE MOVED.) 

* 

MTBR1 NULL ENTRY FOR BACKSPACE RECORD 

MTBF I NULL ENTRY FOR BACKSPACE FILE 

MTRW1 NULL ENTRY FOR REWIND 

MTRUI NULL ENTRY FOR REWIND~AND~STANDBY 

MTER1 NULL ENTRY FOR WRITE-BLANK-TAPE 
TRA «+3 
XED MPCCK LOG FAIL ON MPC STATUSES 
TRA MTBR2,/QU ELSE BRANCH ON MAJOR STATUS 

CRRDS NULL GENERAL ERROR ON CARD READ 

CPWTS5 NULL GENERAL ERROR ON CARD PUNCH 
CANQ =0002000-DL CHECK FOR INITIATE INTERRUPT 
TZE FIN3 RETURN BAD STATUS TO USER IF NOT 
TRA RETRY ELSE RETRY THE OPERATION 

* 

tO BRANCH TABLE FOR MAJOR STATUS 

* 

MTBR2 NULL 
TRA MSTSR O = CHANNEL READY - RETURN TO MAIN LINE 
TRA FIN3 1 = DEVICE BUSY — RETURN TO USER 
TRA MTRD3 2 = DEVICE ATTENTION — RETURN EVENTUALLY 
TRA MTBR3 3 = DATA ALERT - RETRY IF INITIATE 
TRA FIN2 4 = EOF ~ CAN HAPPEN ON BACKSPACE 
TRA MTRD6 S = COMMAND REJECT = PROBASLY RETRY 
TRA FAIL 6 = INTERMEDIATE - TEST SWITCH ON 
TRA FAIL 7 = TIMEOUT —- CAN'T TELL WHAT TO DO 

* 

. DATA ALERT 

* 

MTBR3 NULL 
CANQ =0002000-DL CHECK FOR INITIATE INTERRUPT 
TZE FAIL RETURN TO USER IF NOT INIT 
TRA LRTRY ELSE RETRY OPERATION 
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* 
MTAR2 
PRAR2 


PHYSICAL I/0 


EJECT 


AWAIT READY 


NULL 
TRA 
XED 
TRA 


RETRY 
MPCCK 


*+7,2U 


STATUS CHECKING == MAG TAPE 
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RETRY IOC ERRORS 
LOG FAIL ON MPC STATUSES 
BRANCH ON NAJOR STATUS 


MAJOR STATUS BRANCH TABLE 


TRA 
TRA 
TRA 
TRA 
TRA 
TRA 
TRA 
TRA 


MSTSR 
MTAR2 
MTAR2 
FAIL 
FAIL 
LRTRY 
FAIL 
RETRY 


WAIT AND RETRY 


NULL 
NULL 
AOS 
LXL 
CMPX 
TRC 
FREE 
TSXO 
SWAIT 
TSXO 
SLELZE 
E AX 
TSXO 
RREG 
TSXO 
TRA 


USRETRY*S 
XsUSRETRY*S 
XeTSIORTM2Z 


FINS 
PUB 
PEEREE 


SWAIT 
PUBs1 
Zeal 

SIEZE 


RREG 
RISUE 


READY ~ RETURN TO USER 
DEVICE BUSY =~ WAIT AND RETRY 
ATTENTION = WAIT FOR SPECIAL 
DATA ALERT = IMPOSSIBLE 

EQt — IMPOSSIBLE 

CMD RJCT ~ LOG AND RETRY 
INTERMEDIATE 

TIMEOUT = JUST RETRY 


NONE WN > © 


Hou uw uh bo tu u 


INCREMENT RETRY COUNTER 

CHECK COUNTER 

AGAINST MAXIMUM 

RETURN BAD STATUS IF TOO LONG 
RELEASE CHANNEL 
WAIT FOR SPECIAL INTERRUPT 

GET CHANNEL AGAIN 

GET PRIORITY FOR ENQUEVEING 
CALL SUBROUTINE TO QUEUE 
RESTORE REGISTERS AFTER QUEUING 
CALL SUBROUTINE 

RETRY OPERATION 
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peg oie 


x20 
5021 
5022 
a025 
5024 
gO aes. 
5026 
Ser 
5628 
5029 
5030 
D034 
2052 
8 fo Bes 
5034 
S035 
9036 
5037 
2036 
3059 
5040 
5041 
5042 
9043 
5044 
5045 
5046 


CRRD3 


CRRDG 


DTSS TRADE SECRET 


PHYSICAL I/0 ~~ STATUS CHECKING ~~ CARD READER 

es PHYSICAL 1/0 ~~ STATUS CHECKING ~~ CARD READER 
READ 

NULL 

TRA CRRDS ENTRY POINT FOR GENERAL ERROR 
XED MPCCK LOG FAIL ON MPC STATUSES 

TRA *+1,QU BRANCH ON MAJOR STATUS 


BRANCH TABLE FOR MAJOR STATUS 


TRA 
TRA 
TRA 
TRA 
TRA 
TRA 
TRA 
TRA 


MSTSR 
FAIL 
CRRDS 
CRRDS 
FAIL 
LRTRY 
FAIL 
FAIL 


READY =~ GOOD 

DEVICE BUSY = IMPOSSIBLE 
ATTENTION ~- DIAGNOSE 

DATA ALERT - ALSO DIAGNOSE 
END-OF-FILE ~ IMPOSSIBLE 

CMD RJCT - RETRY 

INTERMEDIATE = IMPOSSIBLE 
TIMEOUT - CARD PROBABLY MOVED 


rot unm bd i ou 


NOU EWN © 


CARD READER DEVICE ATTENTION 


NULL 
CANQ 
TNZ 
C ANQ 
TNZ 
CANQ 
TNZ 
TRA 


DATA 


NULL 
CANQ 
TNZ 
CANQ 
TNZ 
TRA 


=0700C000-DL 
FAIL 
=0004000,DL 
MSTSR 
=0040000-DL 
FIN2 

FINS 


ALERT STATUS 


=O0020000,0L 
FINS 
=0004000-DL 
FAIL 

LRTRY 


SNEAK FEED/READ/JAM/FEED ALERTS 

RETURN THESE ERRORS TO USER 

CHECK FOR TERMINATE INTERRUPT 

ASSUME CARD WAS SUCCESSFULLY READ IF SO 
CHECK LAST BATCH LIGHT 

GIVE EOF RETURN IF ON 

ELSE RETURN HALT STATUS WITHOUT LOGGING 


VALIDITY ALERT? 

DON'T BOTHER LOGGING SUCH 

CHECK FOR TERMINATE INTERRUPT 

LET THE USER DO HIS OWN BACKSPACE 
RETRY IF CARD DIDN'T MOVE 


PAGE 150 


RELEASED 01DEC80 


—C21APR77) 
C27APR77) 
C21APR77] 
C27APR77) 
C21APR/774J 
C21APR77] 
C21APR77) 
C21APR77]) 
C21TAPR77] 
C21APR77] 
C21APR77] 
C217APR77) 
C21APR77) 
C21APR77) 


HO. HOP EY TO. WO, 3 HOS 1 3) es: Oo 3: *O. OO Oo: oO 


(Cy Oe- 0 3 3 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
{ 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
{ 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
] 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
} 
1 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
t 
| 
| 
| 
| 
| 
| 
| 
| 
I 
| 
| 
I 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 


\ 
af 


oOo 6 oOo Oo oO oD & 6 Goo Oo OG oe SG 6 6 G&S < 


uv 
—" 
oO 


005173 
005174 
005175 


005176 
005177 
005200 
005201 
005202 
005203 
005204 
005205 


005206 
005207 
005210 
005211 
005212 
005213 
905214 


005215 
005216 
005217 


09/03/81 


I 


005101 
004022 
005176 


004014 
004301 
005206 
005215 
004301 
004024 
0604301 
004301 


6090000 
004301 
004000 
004014 
100000 
004301 
094305 


744000 
004301 
004024 


005173 


7100 00 
7170 OO 
7100 Oe 


7700 OO 
77100 OO 
PALO: 200 
7100 O00 
771090 00 
71900 00 
7100 00 
FIO OO 


005206 
3169 07 
6010 00 
S160. 07 
6019 O00 
5160 O72 
6010 O00 
7100 O00 


OU3275 
5160: 0-7 
6010 00 
7100 00 


aw 


— 
ae 


ANA Dw Aw 


. ry a 


09:08:53 


5047 
5048 
5049 
5050 
5051 
205¢ 
DUS 
5054 
5055 
5056 
2057 
5058 
5059 
5060 
5061 
5062 
5063 
5064 
5065 
5066 
5067 
5068 
5069 
5070 
oe ae 
5O07e 
2075 
5074 
5075 
2076 
POLS 
5078 
S079 
5080 
5081 
5082 
5083 
5084 
5085 
5086 
5087 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
[ 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 


DTSS EXECUTIVE CINSERT SEGMENT) 
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CPWT3 


CPWT4 


DTSS TRADE SECRET 


PHYSICAL I/0 ~~ STATUS CHECKING ~~ CARD PUNCH 


TTLS 


PHYSICAL I/0 ~=- 


STATUS CHECKING ~~ CARD PUNCH 


THE PHILOSOPHY IS TO RETURN TO THE USER ANY 


STATUSES WHICH WILL REQUIRE OPERATOR INTERVENTION FOR 


ENTRY POINT FOR GENERAL ERRORS 
LOG FAIL ON MPC STATUSES 
BRANCH ON MAJOR STATUS 


CHANNEL READY — 
DEVICE BUSY ~ IMPOSSIBLE 


RETURN TO MAIN LINE 


WRITE 

NULL 

CAS USUAL, 
RECOVERY) 

TRA CPWTS 
XED MPCCK 
TRA *+7,QU 
MAJOR STATUS BRANCH TABLE 
TRA MSTSR 
TRA FAIL 
TRA CPWTS 
TRA CPwT4 
TRA FAIL 
TRA LRTRY 
TRA FAIL 
TRA FAIL 


ATTENTION ON CARD PUNCH 


NULL 
CANQ 
TNZ 
CANQ 
TNZ 
CANQ 
TNZ 
TRA 


DATA 


NULL 
CANQ 
TNZ 
TRA 


=0600000,DL 
FAIL 
=0004000-DL 
MSTSR 
=0100000,D0DL 
FAIL 

FINS 


ALERT CONDITION 
=0744000,DL 


FAIL 
LRTRY 


f= 

ah, 

2 = ATTENTION - TO LOG OR NOT TO LOG? 
3 = DATA ALERT -— CHECK A LITTLE 

4 = EOF —- IMPOSSIBLE 

5 = CMD RJICT - PARITYs WE HOPE 

6 = INTERMEDIATE - WE BLEW IT 

7 = TIMEOUT —- CARD PROBABLY MOVED 


NIL/CARD JAM 

REAL ERROR=TYPE ERRORS 

CHACK FOR TERMINATE INTERRUPT 
ASSUME CARD WAS CORRECTLY PUNCHED 
FEED FAILURE 

LOG THIS ERROR 

ELSE RETURN WITHOUT LOGGING 


NIL/NIL/NIL/PUNCH ALERT/TERMINATE 
THESE GO BACK TO THE USER 
ELSE LOG AND RETRY 
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PHYSICAL I/0 -- STATUS CHECKING -= PRINTER 

i eS es: PHYSICAL I/0 -~ STATUS CHECKING ~~ PRINTER 
WRITE 

NULL 

TRA RETRY ENTRY POINT FOR GENERAL ERRORS 
XED MPCCK LOG FAIL ON MPC STATUSES 

TRA *+1,QU BRANCH ON MAJOR STATUS 


STATUS BRANCH TABLE 


TRA MSTSR 0 = READY - GOOD 

TRA FAIL 7 = DEVICE BUSY ~ IMPOSSIBLE 

TRA PRWT2 2 = ATTENTION =~ DIAGNOSE 

TRA PRWT3 3 = DATA ALERT ~- DIAGNOSE 

TRA FAIL 4 = END-OF-FILE - IMPOSSIBLE 

TRA PRWT6 5 = COMMAND REJECT ~- DIAGNOSE 
TRA FAIL 6 = INTERMEDIATE - IMPOSSIBLE 
TRA RETRY 7 = TIMEOUT - JUST RETRY 


DEVICE ATTENTION 


NULL 

CANQ =0740000,DdL NIL/NIL/CHECK/VFU 

TNZ FAIL LOG THESE AND RETURN TO USER 
CANQ =0012000-DL CHECK FOR PAPER OUT OR INITIATE 
TNZ FINS IF SO -- DATA NOT TRANSFERED 
TRA MSTSR ELSE DATA WAS TRANSFERRED 


DATA ALERT 


NULL 
CANQ =0022000-DL CHECK FOR ALERT BEFORE PRINTING 
TZE PRWT4 NOs CHECK SOME MORE 


NULL JOINED HERE BY COMMAND REJECT 
CANQ =0400090,DL CHECK FOR TOP OF PAGE ECHO 
TNZ ~ FINS RETURN IT TO USER IF SO 

TRA LRTRY ELSE COUNT» LOG AND RETRY 
NULL ALERT AFTER PRINTING STARTED 
CANQ =05000090,DL CHECK TOP PAGE OR PAPER LOW 
TNZ MSTSR HANDLE LIKE NORMAL STATUS 

TRA FAIL ELSE LOG AND RETURN TO USER 


COMMAND REJECT ON REQUEST STATUS 


NULL _ 

CANQ =0600000-,DL TPG ECHO/SLEW ALERT 
TNZ RETRY NO USE LOGGING THOSE 
TRA LRTRY ELSE LOG AND RETRY 


| 
{ 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
t 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
I 
| 
| 
| 
| 
| 
: 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
l 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 


PAGE 152 


RELEASED 


01DEC80 


C21APR77) 
C27APR77) 
C21APR77) 
C21APR77) 


~C2TAPR7735 


C21APR77] 
C21APR77] 
C21APR77) 
C21APR77) 
C21APR77) 
C21APR77]) 
C21APR?77) 
C21APR?77] 


~C21TAPR77) 


C21APR77) 
C21APR?77] 
C21TAPR77) 


C2TAPR77) 


C21APR77.) 
C2TAPR?77) 
C21APR77) 
C21APR77] 
C21APR77) 
C21APR77) 


C) 


OO 4 - ae © 


5 
, 


i *Oe WS 9Or Ge ae a: @ “Oy 2. wr. 3 =e 3 


C) 


| 
| 
I 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 


0 
ae 
io) 


Cy “Oe “Oe @ 


Go © - © ©. ©. © 


Or 3Or  "Oe De Oe Os. Ae Se 


UG5235 
005254 
005255 


005256 
005257 
005260 
005261 
005262 
005263 
005264 
005265 


005266 
005267 
005270 


005271 
005272 
005273 
005274 
005275 
005276 
005277 
005300 


09/03/81 


I 


004014 
004022 
005256 


004014 
004301 
004014 
004014 
004301 
005250 
004301 
004033 


064033 
004022 
005271 


004014 
004301 
UGS 43-2 
004014 
004301 
005250 
004301 
004033 


005253 
7100 00 
400 OO 
7100 Oe 


7100 
7100 
7100 
7100 
7100 
7100 
7100 
7100 


905266 
7100 OO 
7170 OO 
7100 Oe 


7100 
7100 
7100 
7100 
7100 
71009 
7100 
£100 


Ou: 0 Map” OED” vin. ¢ li-o Ea 2) 
* © *¢ ® &#© » #6 8 


P91 


5137 
5138 
5139 
5140 
5141 
5142 
5143 
5144 
5145 
3146 
5147 
5148 
5149 
5150 
5151 
5152 
5153 
5154 
2139 
5156 
9157 
5158 
2129 
5160 
5161 
29162 
5163 
5164 
5165 
5166 
5167 
5168 
5169 
ow eee) 
5171 
Ole 
5173 
5174 
5175 


* 


DTSS EXECUTIVE CINSERT SEGMENT) 


DTSS TRADE SECRET 


PHYSICAL I/0 ~~ STATUS CHECKING ~~ PRINTER 


EJECT 


REQUEST STATUS AFTER "WAIT SPECIAL! 


NULL 

TRA MSTSR 
XED MPCCK 
TRA *+7,/QU 


MAJOR STATUS BRANCH TABLE 


TRA MSTSR R 
TRA FAIL 1 
TRA MSTSR 2 
TRA MSTSR 3 
TRA FAIL 4 
TRA PRWT5 5 
TRA FAIL 6 
TRA RETRY v4 


AFTER REQUEST STATUS 
(AWAIT READY) 


NULL ; 

TRA RETRY 
XED MPCCK 
TRA *#1, QU 


MAJOR STATUS BRANCH TABLE 


TRA MSTSR 0 
TRA FAIL 1 
TRA PRAR2 2 
TRA MSTSR 3 
TRA FAIL 4 
TRA PRWT5 5 
TRA FAIL 6 
TRA RETRY 7 


Hoi db wou ht u 


Huu ub wo ue ou 


IGNORE IOC ERRORS 
LOG FAIL ON MPC STATUSES 
BRANCH ON MAJOR STATUS 


ETURN BUTTONS STATUS AND ALL TO USER 


DEVICE BUSY ~ IMPOSSIBLE 
ATTENTION = NOT OUR PROBLEM 
DATA ALERT - NOT OUR PROBLEM 
EOF - IMPOSSIBLE 

COMMAND REJECT — DIAGNOSE 
INTERMEDIATE ~ IMPOSSIBLE 
TIMEOUT - RETRY REQUEST STATUS 


RETRY IOC ERRORS 
LOG FAIL ON MPC STATUSES 
BRANCH ON MAJOR STATUS 


READY - RETURN TO USER 
DEVICE BUSY ~- IMPOSSIBLE 
ATTENTION - WAIT FOR SPECIAL 
DATA ALERT ~ NOT QUR PROBLEM 
EOF ~ IMPOSSIBLE 

COMMAND REJECT - DIAGNOSE 
INTERMEDIATE 

TIMEOUT ~ RETRY 
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